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that it is hard to decide what to print and what to leave out. We 
thought you might like a few issues filled with user items, and 
that is what we hope to give you in these three issues. 

In closing, I would like to say that I am really excited 
about the Model 4 and especially excited about the Model III 
to Model 4 upgrade. As a consumer I appreciate the fact that 
my investment {time and money) in Model I hardware and 
software (yes, I am one of the many who are still operating 
Model Is) is reasonably transportable to both Models III and 
4 I also aoprecate that for the pnce o' adding drive zero to a 
cassette basea Model III I can move from a 32K Model III to 
a 64K Model 4 with Model III, TRSDOS, LDOS and CP/M 
compatibility J3 



Fort Worth Scene magazines 



READER SURVEY 

Some time bacK I mentioned that we took a reaaer 
survey. Well, the results are in and are neatly summarized in a 
very large book on my desk. We thought you might like to see 
some of the results. 

Most of our readers have Model I or III computers. The 
Model I/III owners are followed by Color Computer owners, 
then Model II and Pocket Computer Owners No real sur- 
prises in this ranking, especially if you consider how new 
Pocket Computers were when we did the survey 

Overall, 48% of the respondents r ated Microcomputer 
News as being "excellent" or "very good". And 66% of the 
respondents considered the magazine to be just right in 
regard to technical content. There was a large indication that 
you want direct information about products, as well as more 
in'ormat on on programming and some additional arti&es on 
advanced/technical material. 

All of this information is being considered as we make 
plans for future issues. We are developing an overall content 
strategy which we think will meet most of the needs and 
desires that have been identified. Our objective will be to 
balance material over a year's worth of issues since it is 
almost impossible to balance each issue. 

NEW PRODUCTS 

I am writing this in mid March, which means that most of 
you have just received the March issue. We began introduc- 
ing you to six new TRS-80s in the February issue with the 
Model 12. March gave you the PC-4. April the Model 100. 
and n this issue we are introducing the Mode 4. June and 
July will also introduce new machines to finish out the six 
introductions that were announced early in 1983 

I would appreciate hearing your reaction to the introduc- 
tion artcles that we ran and are runn ng. We feel that 1 is 
important to get this nformation to you as soon after the 
product introductions as possible, and our goal has been to 
provide much more information in Microcomputer News than 
you will typically read in the other magazines. What I need to 
know is, how we'l are we filling your desire to know about 
these new products 7 Did we emphas./e what you wantea to 
read about, or did we miss the mark. 

We hope that you will find the May, June and July issues 
much more user oriented than some of our recent issues 
have been. There 's so much information, and so few pages, 



Below are four magazines of special interest to TRS 80 
owners that we believe have editorial content of high quality 

and will be of use to our customers. 

80-US (Covers all TRS-80's) 
3838 South Warner Street 
Tacoma, WA 98409 

Color Computer Magazine 

Highland Hill 
Camden, ME 04843 

Rainbow (Covers the TRS-80 Color Computer) 
5803 Timber Ridge Dr. 
Prospect, KY 40059 

two/sixteen magazine 

P.O. Box 1216 

Lancaster, PA 17603 -£l 
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TRS-80 Microcomputer News is published monthly 
by Radio Shack, a division of Tandy Corporation, One Tandy 
Center, Fort Worth, Texas U.S.A. 76102 Copyright 1983 by 
Tandy Corporation, One Tandy Center, Fort Worth, Texas 
U.S.A. 76102. All rights reserved. 

Reproduction or use, without express written permission 
from Tandy Corporation, of any portion of the Microcomputer 
News is prohibited. Permission is specifically granted to individ- 
uals to use or reproduce material for their personal, non- 
commercial use. Reprint permission for all material (other than 
Ivan Sygoda's Profile article), with notice of source, is also 
specifically granted to non-profit clubs, organizations, educa- 
tional institutions, and newsletters. 

TRS-80 Microcomputer News is published monthly by 
Radio Shack, a division of Tandy Corporation. A single six 
month subscription is available free to purchasers of new full 
size TRS-80 Microcomputer systems with addresses in the 
United States, Puerto Rico, Canada and APO or FPO ad- 
dresses. Certain smaller TRS-80 Microcomputers will not in- 
clude this free subscription. Subscriptions to other addresses 
are not available. 

The subscription rate for renewals and other interested 
persons with U.S., APO or FPO addresses is twelve dollars 
($12.00) per year, check or money order. Single copies of the 
Microcomputer News may be purchased from Radio Shack 
Computer Centers or Computer Departments for $1 .50 sug- 
gested retail each. 

The subscription rate for renewals and other interested 
persons with Canadian addresses is Fifteen dollars ($1 5.00) per 
year, check or money order in U.S. funds. All correspondence 
related to subscriptions should be sent to: Microcomputer 
News, P.O. Box 2910, Fort Worth, Texas 76113-2910. 

Retail Prices in this newsletter may vary at individual stores 
and dealers. The company cannot be liable for pictorial and 
typographical inaccuracies. 

Back issues of Microcomputer News prior to January, 1 981 
are available through your local Radio Shack store as stock 
number 26-2115 (Suggested Retail Price $4.95 for the set). 
Back issues of 1981 copies are available as stock number 26- 
2240 (Suggested Retail Price $9.95 for the set). 

The TRS-80 Newsletter welcomes the receipt of computer 
programs, or other material which you would like to make availa- 
ble to users of TRS-80 Microcomputer systems. In order for us to 
reprint your submission, you must specifically request that your 
material be considered for reprinting in the newsletter and pro- 
vide no notice that you retain copyrights or other exclusive rights 
in the material. This assures that our readers may be permitted 
to recopy and use your material without creating any legal 
hassles. 

Material for publication should be submitted on magnetic 
media (tape, disk, or CompuServe). If you submit material on 
tape or disk, and it is accepted for publication, we will send you 
two cassettes or diskettes for each one you sent us. Cassettes 
will come from our box of mixed blank cassettes. If you submit 
material on CompuServe, and we think we may use the mate- 
rial, we will extend your Microcomputer News subscription by 
six months for each article accepted. If you are submitting 
material over CompuServe, please include your name and ad- 
dress or your subscription number so we can find you. If the 
material is very short, send it to us in E-Mail. If you have more 
than a few lines, you need to place the material in the ACCESS 
area of CompuServe and then let us know it is there by leaving a 
message on E-Mail. 

Material may be submitted by mail to P.O. Box 2910, Fort 
Worth, Texas 76113-2910, or through CompuServe. The 
Microcomputer News' CompuServe user ID number is 
70007,535. 

Programs published in the Microcomputer News are pro- 
vided as is, for your information. While we make reasonable 
efforts to ensure that the programs we publish here work as 
specified, Radio Shack can not assume any liability for the 
accuracy either of the programs themselves or of the results 
provided by the programs. 

Further, while Microcomputer News is a product of Radio 
Shack, the programs and much of the information published 
here are not Radio Shack products, and as such can not be 
supported by our Computer Customer Service group. If you 
have questions about a program in the Microcomputer News, 
your first option is to write directly to the author of the program. 
When possible, we are now including author's addresses to 
facilitate communications. If the address is not published, or if 
you are not happy with the response you get, please write us 
here at Microcomputer News. We will try (given the limited size 
of our staff) to find an answer to your question and, in many 
cases, will publish the answer in an up-coming issue of Micro- 
computer News. 
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View from the 7th Flo 



by Jon Shirley 
Vice President 
Radio Shack Computer Merchandising 



THANKS To Mr. Bob Snapp of SNAPPWARE for his 
valuable help. Bob supplied us patches to solve the slow 
BASIC disk access under Model II TRSDOS 4.0 and for a 
problem with TRSDOS 2.0b using the thinline drives. All Bob 
asked for his efforts was official recognition and this is it. 

SNAPPWARE produces enhancements to the disk 
BASIC for Model II and III for programmers. Bob has some 
very neat stuff and I speak as a user on my Model III. If you 
are interested, write to SNAPPWARE at 371 9 Mantell, Cincin- 
nati, Ohio 45236. 

New TRS-80's just keep arriving like magic. First the 
Model 1 2, then the PC-4 pocket, then the Model 1 00, and this 
month you can go see the new Model 4. We think this new 
baby answers all the requests we have had for a low priced 
computer with a bigger screen and more memory. The 
Model 4 features an 80 by 24 screen, an enhanced keyboard 
with function keys, 64K expandable to 128K, double speed 
operation and even a built in speaker. It comes with an all new 
operating system that is loaded with features and the latest in 
BASIC'S. It is also CP/M compatible and, as far as thousands 
of hours of testing can prove, it's 100% compatible with the 
Model III. 

Put in a Model 4 disk and it's a Model 4, put in a Model III 
disk and it's a Model III. It also has a nice looking near white 
case which has also been requested from time to time. We do 
have an upgrade kit for the Model III owner that makes the III 
a full 4 except for the case color. It is $799 which is a lot, but it 
requires replacing the entire main circuit board and the key- 
board. Since the Model 4 was so changed, even the plug in 
chips from a III cannot be used in a 4. One note, the Model 4 
features are disk only. The cassette version operates only as a 
Model III, until it is upgraded to disk. 

And we are not through introducing new computers, yet. 
Keep tuned in for more new products. This is an exciting 
industry where advancing technology will bring us all more 
personal computing power that we could have dreamed of 
just 5 years ago. 

I would like to thank all of you who have applied to our 
software support program for software houses. We have 
been overwhelmed with the response. For you TRS-80 own- 
ers, this program will mean more availability of software for 
your TRS-80 from outside suppliers. By mid-February over 
1 ,000 companies had signed up, and that means a lot of 
people are out there writing software for our computers. We 
are really proud of the vote of confidence and we will continue 
to expand the support department. 

The subject of this issue is home use, and there is one 
home item that I think is really great for you Color Computer 
owners with smali children. It's Color LOGO, now available as 
a Program Pack for any 1 6K Color Computer. LOGO is a very 
easy language to learn and lets the child produce graphics. 



The basic graphic element of LOGO is called a "turtle". The 
turtle is moved around the screen with simple commands to 
produce the graphics. Our LOGO has the unique ability to 
"hatch" multiple turtles which can be run by separate pro- 
grams simultaneously. 

Another neat LOGO feature called doodle can be used 
by children too young to read to move the turtle just by 
pressing keys. Each movement is saved in memory and can 
be replayed by pressing another key. Perhaps the best fea- 
ture of our LOGO is that it's only $49.95 and does not require 
an expanded computer. That makes it by far the lowest cost 
LOGO available from anyone. 

A lot of the surveys I read say that girls are not using 
home computers, or even TV games much. I hope that is not 
because parents assume that computers are for boys. My 1 2 
year old girl spends hours at our Color Computer when she is 
not riding her horse. She plays games, tests new programs 
for us, uses Micro Painter, and has done a little programming. 
If your kids spend all their free hours at the boob tube, why 
not let them spend those hours on a color computer and learn 
at the same time? And that includes the girls. It's not just that I 
want to sell lots of computers, which I do, but that the world is 
getting computerized, and future employment for many of 
today's children will be in information processing, and that 
means computers. A little knowledge now might be very 
valuable later. 

Until next month. J3 
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Customer Service 



Radio Shack Dot-Addressable 
Printers 



Why write a letter when you can express it? Dot- 
addressable printers, like the DMP series, can do much more 
than just print, so why not jazz it up a little? You can now 
transform printing into creative drawing, as the capabilities of 
dot-addressable graphics is limited only by your imagination. 

A few of the new printer manuals have some program- 
ming examples using data statements, the most efficient way 
to manipulate large strings of data, because it saves time 
typing. Presented below are similar programs that should 
work on any Radio Shack dot-addressable printer. 

Note: The output of the printer in bit-image mode de- 
pends on how the printer is configured (i.e.— is elongation on 
or off, etc.) If you want repeatable results, always set the 
printer to a known configuration. 

Please key in the following program to see what 
happens. 

Note: If the DMP printer has the rotary switch in corre- 
spondence mode, it will not accept graphic codes, so be sure 
your printer is set up for bit-image mode. This can be done at 
power-up using the switches, or by sending the proper soft- 
ware codes to the printer. 



10 


LPRINT CHR$(18); 














20 


READ N 
















: IF N=999 THEN LPRINT 


CHR$(30); 








: END 














30 


IF N=888 THEN LPRINT 
: GOTO 20 














40 


LPRINT CHR$(128+N); 














50 


GOTO 20 














90 


DATA 7, 25, 97, 1, 5 


61 


5, 


1, 


97, 


25, 


7, 


91 


DATA 56, 38, 33, 32, 
999 


47, 


41, 


41 


, 32 


33 


38 


Now try this . . . 















56. 



40 IF N>=0 THEN LPRINT CHR$(N+128); 

: GOTO 20 
50 READ NN 

: LPRINT CHR$(28); CHR$(-N); CHR$(NN+128) ; 
60 GOTO 20 

90 DATA 124, -3, 2, -9, 113, -3, 98, 124, 120, 112, 

888 

91 DATA 119, -3, 28, 60, 60, -4, 56, -3, 57, -3, 1, 

127, 127, 124, 888 

92 DATA 1, 2, 6, 14, 12, -8, 28, -3, 30, 15, 15, 7, 

999 

Line 50 implements the repeat feature. A negative num- 
ber will indicate the number of times to repeat the following 
character string. 

What about SuperSCRIPSIT? SuperSCRIPSIT allows 20 
user defined printer code keys, and each key can store up to 
1 1 printer codes or other data. That is 220 codes! 

Why not utilize this feature with dot-addressable graph- 
ics. The first program 'draws' the Tandy logo. Let's try to 
recreate this in SuperSCRIPSIT . . . 



In SuperSCRIPSIT, choose the System Setup option at 
the main menu, then choose C for printer codes. The Unit 
column is the width of the printable characters. Type in the 
following example, and stipulate the width as 4 on all three 
lines. 

18 135 153 225 129 133 189 133 129 225 153 
135 10 30 8 22 18 184 166 161 160 175 
169 169 160 161 166 184 30 27 30 

The number following the backspace (8 is the back- 
space, you may need to change the 22), may vary depend- 
ing on your printer. Check your printer manual for the correct 
values. You could devise your own company logo (or maybe 
your signature in script) using a similar technique. 

The following program prints old English letters. The 
letters to be printed must be uppercase alphabetic charac- 
ters, all other characters will print as a blank space. 

The program could be enhanced greatly, so I hope that 
this may have given you some new ideas. 



1 CLS 



CLEAR 10G 
DEFINT N 
DEFSTR A 
DIM A(26, 



2) 



2 PRINT @ 470, "One Moment Please " 

3 LPRINT CHR$(18) 

10 FOR Nl=l TO 26 

11 FOR N2=l TO 2 

12 READ N 

: IF N=999 THEN 15 

13 A(N1, N2)=A(N1, N2)+CHR$(N) 

14 GOTO 12 

15 NEXT N2, Nl 
17 CLS 

20 INPUT "Message"; AA 
22 IF AA="QUIT" THEN LPRINT CHR$(30); 

: END 
24 FOR Nl=l TO 2 
26 FOR N2=l TO LEN(AA) 
28 NN=ASC(MID$(AA, N2, D) 
30 IF NN<45 OR NN>90 THEN LPRINT STRING$(7 

: GOTO 40 
32 FOR N3=l TO LEN(A(NN-64, Nl)) 
34 LPRINT CHR$(128+ASC(MID$(A(NN-64, Nl), N3, 
36 NEXT N3 



128); 



1))); 



38 LPRINT CHR$(128); CHR$(128) 




40 NEXT N2 




42 LPRINT 




: NEXT Nl 




44 GOTO 20 




50 DATA 0, 0, 0, 2, 1, 101, 57 


38, 63, 112, 0, 0, 


999 




51 DATA 2, 1, 1, 1, 3, 2, 0, 


0, 1, 3, 2, 1, 999 


52 DATA 2, 1, 17, 126, 0, 126, 


9, 9, 14, 112, 999 


53 DATA 0, 2, 1, 1, 1, 2, 2, 2 


1, 0, 999 


54 DATA 16, 124, 2, 125, 1, 1, 


2, 2, 64, 999 


55 DATA 0, 0, 1, 2, 2, 2, 2, 1 


0, 999 
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56 DATA 

57 DATA 2 

58 DATA 16 

59 DATA 

60 DATA 

61 DATA 2 



62 DATA 16, 124 



0, 1 
17, 

2, 1 



63 DATA 

64 DATA 2 

65 DATA 

66 DATA 2 

67 DATA 1 

68 DATA 

69 DATA 2 

70 DATA 2 

71 DATA 2 

72 DATA 2 

73 DATA 

74 DATA 2 

0, 

75 DATA 

76 DATA 2 

77 DATA 

78 DATA 16 

79 DATA 

80 DATA 2 

81 DATA 2 

82 DATA 16, 124 



83 DATA 

84 DATA 2 

85 DATA 

86 DATA 

87 DATA 2 

88 DATA 2 

89 DATA 

90 DATA 17 

91 DATA 2 

92 DATA 2 

93 DATA 

94 DATA 2 

127, 

95 DATA 

96 DATA 66 

97 DATA 1 

98 DATA 2 

99 DATA 34 

100 DATA 2 



2, 1 
1, 1 
, 124 
0, i 

0, 2 

1. 1 



122 



1, 
2, 
2, 

1, 
17 
1, 
17 

2, 1 
17, 
999 
2, 1 
17, 
2, 1 
, 124 

0, 1 
17, 1 

1, 63 



17. 
2, 

22. 

1, 

17. 



, 126 
1, 2 
17, 



17, 
999 

0, : 

. i, 
2, : 

17, 

, 17 
, 1, 



1 
2 
2 
1 
1 
2 
4 
25 
1 

1 
17 



61, 
3 

61, 

1 

126 



101 DATA 2, 1 



41, 
1 

21 
1 

2 

26 
2 

26 

2 

17, 
1 

126 
, 18 
65, 
1, 1 



2, 2, 1, 0, 999 
125, 17, 17, 34, 2, 64, 999 
2, 2, 2, 1, 0, 999 
17, 126, 0, 126, 17, 2, 2, 1, 999 

2, 2, 0, 0, 0, 0, 0, 999 
64, 62, 17, 10, 10, 113, 999 



121, 1, 2, 124, 999 



4, 4, 1, 1, 999 

126, 17, 9, 16, 96, 999 

2, 33, 16, 15, 999 

0, 126, 1, 1, 2, 999 

1, 2, 2, 1, 999 
26, 1, 126, 1, 999 

2, 1, 0, 999 
126, 17, 49, 50, 80, 999 

2, 0, 1, 2, 999 
126, 1, 1, 2, 0, 999 

3, 2, 2, 1, 999 
17, 126, 18, 125, 1, 1, 126, 

1, 0, 1, 2, 0, 1, 2, 1, 999 
125, 1, 1, 126, 17, 0, 999 

2, 0, 1, 2, 1, 999 



2 
2, 

2 
2, 

1 

1 

2 
2 
1 

32, 30, 1, 125, 2, 124, 999 
2, 2, 2, 1, 0, 999 
2, 125, 1, 1, 126, 999 
, 2, 2, 2, 11, 999 
32, 30, 1, 125, 2, 124, 0, 999 
2, 2, 2, 1, 2, 2, 999 
2, 125, 17, 17, 110, 0, 0, 999 

1, 2, 0, 1, 2, 1, 999 
41, 41, 42, 17, 96, 999 

2, 2, 1, 0, 999 

5, 1, 62, 2, 126, 1, 64, 999 
2, 2, 2, 2, 1, 0, 999 

126, 1, 126, 1, 0, 999 
2, 1, 3, 2, 1, 999 

126, 0, 1, 126, 1, 999 
2, 2, 1, 1, 0, 999 

0, 126, 17, 126, 16, 0, 1, 

2, 2, 1, 1, 2, 2, 1, 0, 999 
18, 124, 18, 17, 1, 66, 999 

1, 2, 2, 1, 999 
0, 126, 1, 126, 1, 999 

34, 34, 33, 19, 12, 0, 999 
33, 17, 10, 6, 34, 17, 16, 96, 999 
, 1, 2, 2, 2, 2, 1, 0, 999 



To center and print on mailing labels, make these 
changes. Spacing may differ slightly, depending on printer. 

23 NX=9-(LEN(AA)/2) 

27 LPRINT STRING$(NX*9, 128); 

42 FOR N=l TO 8 

: LPRINT 

: NEXT „^H 

Computer Customer Service 
Address and Phone Numbers 

8AM to 5PM Central Time 

Computer Customer Services 

400 Atrium, One Tandy Center 

Fort Worth, Texas 76102 

Model I/III Business Group (817) 390-3939 

Model 11/16 Business Group (817) 390-3935 

Languages and Compilers (817) 390-3946 

Color and Pocket Computer Group (817) 390-3944 

Hardware and Communications Group . . . (817) 390-2140 

Educational Software (817) 390-3302 

Games, Books, and New Products (817) 390-2133 

Newsletter Subscription Problems (817) 870-0407 



Computer Clubs 

CINTUG (CINcinnati TRS Users Group) 
Lee Penn, President 
6798 Weatheridge Drive 
Cincinnati, OH 45230 



COLUMBUS AND CENTRAL OHIO COLOR COMPUTER 

CLUB 

c/o Stan Saunders 

4984 Brewster Drive 

Columbus, OH 43227 

1-614-837-3672 

FRONTIER MIDDLE SCHOOL COMPUTER CLUB 
Prairie Street 
Brookston, IN 47923 

GULF COAST COMPUTER CLUB 

c/o Jim Johnson 

131 Fox Run 

Port Richey, FL 33568 

813-863-7954 

MIDLAND COLOR COMPUTER CLUB 

c/o Neil Drake 

709 Coolidge 

Midland, Ml 48640 

517-631-2939 

PENSACOLA, FLORIDA USERS CLUB 

TRS-80, Model III Users 

Dr. Frank Biasco, President 

9759 Pickwood Drive 

Pensacola, FL 32504 

904-477-1912 

TCUG 

P.O. Box 2826 

Fairfax, VA 22031 

703-820-6847 (Don Gruenther, Secretary) 

703-836-0384 (TCUG BBS) 

TWIN CITIES COLOR COMPUTER CLUB (TW3C) 

c/o Paula Giese 

515 West 25th Street 

Minneapolis, MN JB 
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CompuServe 



CompuServe Offers a Variety of 
Games and Entertainment Features 



Editor's Note: The CompuServe Information Service is 
one of the largest information and entertainment services 
available to owners of personal computers and computer 
terminals. With each issue of TRS-80 Microcomputer News, 
various features of CompuServe will be discussed, The 
CompuServe Information Service is sold at Radio Shack 
stores nationwide and in Canada. 



DICTIONARY OF COMPUSERVE GAMES AND 
ENTERTAINMENT FEATURES 

The CompuServe Information Service is pleased to bring 
you a variety of games from Adventure to Wumpus. 

ADVENTURE 

The computer is your eyes and hands as you fight your 
way past snakes and dwarves in Colossal Cave in search of 
treasure. 

BACKGAMMON 

The computer is your backgammon board; play the 
computer or someone else. 

BANSHI 

A game for the explorer, leading you to forgotten territo- 
ries where mere mortals have never been. 

BLACKJACK 

Play against the dealer with $500 to start your betting. 

BRIDGE 

Play bridge with the computer. 

CHESS 

Your chance to match wits with the computer. 

CIVIL WAR 

A simulation which lets you fight actual civil war battles. 

CONCENTRATION 

Like the TV games show, match prizes hidden behind 
numbered doors. 

CRAPS 

Big Lefty is your opponent as you roll the dice for points. 

CUBE SOLVER 

Explicit instructions on how to manipulate the colors on 
the frustrating cube puzzle. 



DECWARS 

Real-time space battle game for up to 10 players. 

ELIZA 

On-line counselor who helps you talk through your 
problems. 

FANTASY 

Battle the enemy in this role playing game similar to 
Dungeons and Dragons. 

FASTERMIND 

A logical guessing game where one player makes up a 
secret code, and the other player tries to guess it. 

FOOTBALL 

You call the plays: half-time and end-of-game statistics 
given. 

FURS 

You are a 17th Century French fur trapper. 

GOLF 

Play golf by selecting your clubs while a commentator 
explains the course as you play. 

GO-MOKU 

Line up the Xs and Os. This is similar to tic-tac-toe. 

HAMMURABI 

As the ruler of ancient Sumeria, you make decisions 
which determine the well-being of your people. 

HANGMAN 

A word guessing game. Guess in eight tries or be hung. 

LUNAR LANDER 

Land your ship safely by selecting the correct fuel rate. 

MAZE 

The computer creates a maze to challenge your skills. 

MUGWUMP 

You have 1 tries to find four Mugwumps hidden on the 
grid. 

NEW ADVENTURE 

An expanded version of the exciting Adventure game. 
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OTHELLO 

Capture the computer's "markers" on an 8x8 board. 

REAL-TIME TREK 

A real-time version of Star Trek with multiple players. 

ROULETTE 

Bet on roulette with the computer as the wheel. 

SCOTT ADAMS ADVENTURE 

Nine new adventure games including Pirates Adven- 
ture, Voodoo Castle and Pyramid of Doom. 

SCRAMBLE 

Unscramble the scrambled word before your points run 
out. 

SPACE WAR 

Space age game for up to eight players. 

STAR TREK 

Use warp engines to power through the 64 galaxy quad- 
rants and fight the enemy. 

WUMPUS 

Get your bow and arrows and hunt through a series of 
caves for the Wumpus. 

BE THE STAY-AT-HOME TYPE WITH COMPUSERVE 

The CompuServe Information Service provides home 
uses which are perfect for nearly every member of your 
family. Even the hard to please members like your mathe- 
maticalized son Bobby or your budget-minded husband 
Harold. You could almost say that it's possible to hibernate 
with CompuServe. You wouldn't have to leave your warm, 
cosy, comfortable . . . well you get the point. You could plant 
yourself or your family in your living room at the terminal for 
days on end if you wanted. So, what do we have that's so 
special and that can keep you or those "difficult ones" occu- 
pied for hours? 

AIN'T WE GOT FUN 

We have games and games and more games. We also 
have entertainment features. We have games for the adven- 
turer. If you love to stay at home but hate to miss anything, we 
have just the things for you. Adventure, and Scott Adams' 
other Adventure games will let you wander and explore 
without ever leaving your armchair. The original Adventure 
game lets you be in command. You say what part of the cave 
to explore, which treasures you want, and how to get past all 
the obstacles. A perfect score of 350 points will make you 
master of the original adventure, and ready to head on to the 
New Adventure. This is the enhanced version which provides 
more challenges and more dangers ahead for the skilled 
adventurer. A score of 751 makes you conqueror of the 
Centipede's Lair. 

Scott Adams provides nine adventure games with vary- 
ing levels of difficulty. Start at the beginning and work up, or 
start at the top and work down. Either way, you'll find plenty of 
mystery and challenge with Adventureland, Pirates Adven- 
ture, Mission Impossible, Voodoo Castle, The Count, Strange 



Odyssey, Mystery Funhouse, Pyramid of Doom, and Ghost 
Town. 

If you're more interested in being a space cadet than a 
Sinbad then CompuServe's outer space is your outlet. We 
offer DecWars, and its offspring: MegaWars, Star Trek, Luner 
Lander, Pirates, and Space War. DecWars or MegaWars 
offers a real time space battle for between one and 1 people. 
Star Trek lets you go where no man has gone before by 
commanding the Enterprise. Now, you get to phaser blast, 
torpedo, and destroy as many Klingon vessels as you can in 
a given amount of time. 

The Luner Lander helps you take one small step for your 
household, one giant step for you by landing the module on 
the moon. By telling the computer what to do, you decide 
whether you will land safely or perish above the moon's 
surface. 

Quite the opposite of Luner Lander, is Space War. Rather 
than landing, you're taking off into space to seek out and 
destroy other ships in your galaxy. This is a real time battle, so 
you could be playing with one other person or eight. 

One other space game is Pirates. This is a real-time Star 
Trek type game. Out there in space you're battling against the 
computer and the clock to come out ahead of your enemy. 

Other games and entertainment include an astrology 
and biorythms calculator, psychiatrist/patient simulator, 
sports games, chess, blackjack, craps, and a whole variety of 
mind involving games. All members of the family can find 
something just for them, including the mathematician, and 
the budget director. Just check the listing at the beginning of 
the game section on CompuServe for suggested age, classi- 
fication, number of players, special requirements, screen 
width and direct access page. 

OH, I JUST LOVE A SALE! 

Do you know of someone who loves to shop? Someone 
who loves to spend money? Someone who has a personal 
computer? You can combine all three of these characteristics 
without leaving your home or depleting your checkbook or 
VISA credit. How? Via CompuServe shopping services. We 
have shopping services offering a wide range of merchan- 
dise, plus a variety of prices and discounts. 

Yes, now you can have that full stereo system that Harold 
wouldn't let you buy in the department store because it costs 
too much. As you sit in your easy chair, do some easy 
shopping with Comp-U-Store. As a member, you have your 
choice of over 50,000 brand name products all available for 
home delivery, and not at the department store price you 
quoted Harold. 

Membership fees are $25 for one year, and $40 for two 
years. This membership includes a free VISA card that is 
good anywhere. Comp-U-Store offers appliances, cameras, 
flatware, and video equipment from names such as Admiral, 
Canon, Omega and Sony. All items are sold at 1 - 40 percent 
discounts with full guarantees and home delivery. 
Comp-U-Store also offers exceptional bargains from their 
already discounted prices, and the ability to buy something 
really nice for Harold and have it shipped directly to him as a 
gift at no extra cost. 

If Harold is a fan of National Public Radio, you can use 
CompuServe's NPR Cassette Gazette. NPR is the only na- 
tional noncommercial satellite radio network. Its over 265 
member stations provide award-winning educational, cul- 
tural, news, and information programming. Some of the top- 
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ics NPR cassettes cover include "The Computer as the Next 
Revolution," "Ragtime Women," "Sputnik and Beyond," 
and something to especially perk Harold up, the "Comedy 
Journal." 

If Harold would rather be exercising, CompuServe can 
switch him over to The Athlete's Outfitter, the 60-year-old 
sporting goods store with an extensive line of sports clothing, 
equipment, and the utilities that go along, or shall we say 
under, the clothing worn while using the equipment. Athlete's 
Outfitter lets you browse, and then order from our catalog. 
Just get to what you would like to order, read the description, 
colors and sizing, and then follow the prompts for ordering. 
You can even figure out your sales tax before you leave the 
"Outfitter," making your purchase as smooth as a ski run with 
new snow and waxed skis. 

Of course, if Harold wants to be a well rounded person, 
he must have some music mixed in with his exercise and his 
cultural cassette library. CompuServe's Music Information 
Service can offer him up-to-date information on all forms of 
music and music information. Shoemaker's Music Inc., out of 
Florida, provides answers to questions, retail music business 
operation, or music theory. The Feature section offers articles 
on woodwind care, or music synthesis, or any other interest- 
ing topics provided by interested readers . . . like Harold. 
Music Information also offers an Ask the Experts section, an 
Interviews section and the Top 40 in rock 'n' roll, country, and 
other medias and fields. And, if you want to purchase, they 
even provide you with a mall. You can browse through new 
items added weekly. This is the place to be for accessories, 
instruments, and any music in print. And of course, if they 
don't have it, they'll try and get it or help you find another 
supplier. 

ALL IN THE FAMILY 

How do you answer when people say, "How's the family, 
Harold?" Do you say "Oh, fine"? Or, does your answer 
specifically reflect tensions you have concerning your family 
life? Do you answer with specifics such as "Well, Joe comes 
home late at night, Sally has stopped doing her homework 
and is skipping classes, and Jean decided to quit her job and 
visit her mother this week." If you do, you're probably in 
company with a great number of other folks who are confront- 
ing the everyday task of raising a family and being a part of 
one at the same time. 

CompuServe offers dataFAMILIAE and dataFAMILIAE's 
Special Interest Group (SIG). In a time when families and 
society's roles are changing and shifting, it's hard to know 
which direction to take to get the best results. dataFAMILIAE 
provides- quick, easily read, accurate information, and 
knowledge and training for the fundamentals of parenting 
and family living. dataFAMILIAE attempts to focus on the 
"wholeness" of it all, while helping you to gain confidence in 
handling familial tasks. 

dataFAMILIAE provides five sections of everyday living 
material including: Functioning Mentally, Functioning Physi- 
cally, Nurturing Moral Development, Fitting Together as a 
Family, and Special Matters of the Family. These sections are 
geared toward helping the individual with his/her growth, 
preparing and participating in a family and bringing all of our 
most positive aspects into a family setting. 

In conjunction with the dataFAMILIAE service, the 
dataFAMILIAE Special Interest Group is also dedicated to 
parenting and family life. Users of this SIG can interact on 



matters such as mental, physical and moral growth in the 
family, individual roles, communication, decision-making, 
household management, nurturant experiences, dysfunction 
plus others. 

The SIG is managed by Dr. Bob Lindamood and his 
associates, who operate a management consulting organiza- 
tion in Columbus, Ohio. Bob and his associates have quali- 
fied backgrounds in child development and family relations in 
order to provide you with whatever answers you may need. 

Questions and comments about the CompuServe Infor- 
mation Service can be sent to Richard A. Baker, Editorial 
Director, or Jacqueline A. Farthing, Assistant Editor, 
CompuServe Information Service, 5000 Arlington Centre 
Boulevard, P. 0. Box 20212, Columbus, Ohio 43220 or 
through Feedback, main menu item 5, CompuServe User 
Information. JS 

Educational Color 
Computer Users 
Network 

Dr. Paul Kimmelman, of Norton City Schools in Norton, 
Ohio, is establishing a "network" of educational users of 
Radio Shack's Color Computer. Dr. Kimmelman is requesting 
the following information from educational users of the Color 
Computer: 

1 . Computer coordinator's name 

2. School district 

3. Address 

4. Educational uses of Color Computers 

5. Software being used and evaluations of it 

6. Any additional information you might have 

This information should be sent to: 

Dr. Paul Kimmelman 

Assistant Superintendent 

Norton City Schools 

4128 S. Cleveland-Massillon Road 

Norton, Ohio 44203 J3 
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Al and Dru Simon 

P.O. Box 2910 

Fort Worth, TX 76113-2910 



Hi and welcome back to Communications Corner. Thank 
you for your comments and questions, we appreciate them 
highly. Please keep them coming! 

For the next few columns we are going to delve fairly 
deeply into the mysteries of RS232C; that oft-mentioned and 
vaguely understood convention which everyone knows is 
good to have— though few understand why. At last we are 
going to tell you EVERYTHING YOU ALWAYS WANTED TO 
KNOW ABOUT RS232C BUT WERE AFRAID TO ASK! 

First the term itself. RS232 refers to a specific Electronics 
Industries Association (or EIA) standard which defines (rather 
widely) one method for interfacing two or more pieces of data 
equipment with each other. Currently RS232C interface is by 
far the most widely used. Frequently, peripherals such as 
printers, voice recognition devices, modems, terminals (in 
the case of the Mod 1 6) or even whole computers (in the case 
of the Network 3) are controlled through this port. 

As a part of this series on the RS232C we will be discus- 
sing different types of serial communication, PINS and what 
they are used for, and this month we will start discussing the 
type we're interested in and how that type (known as Bit Serial 
Asynchronous or Asynchronous Bit Serial) works. 

We will start our discussion by describing exactly what 
happens over the telephone line during the transmission of 
data. In this process your computer may be set to either 
Transmit data or to Receive data. There are four tones in- 
volved in data transmission; and their frequencies are asso- 
ciated with each transmission or receive. In other words, 
each specific frequency means something in particular to 
your computer. 

The Transmit frequencies are as follows: 
To originate a MARK, frequency is 1270 HZ 
To originate a SPACE, frequency is 1070 HZ 
To answer a MARK, the frequency is 2225 HZ 
To answer a SPACE, the frequency is 2025 HZ 
Notice that they are only separated by 200HZ. In Re- 
ceive, the frequencies are organized in pretty much the same 
way, but in reverse. Specifically: 

To originate a MARK, frequency is 2225 HZ 
To originate a SPACE, frequency is 2025 HZ 
To answer a MARK, the frequency is 1270 HZ 
To answer a SPACE, the frequency is 1070 HZ 
The switching of these frequencies tells your modem 
whether a or a 1 (also known as a SPACE and MARK 
respectively) is being transmitted or received. Simply put, the 
job of the modem is to turn frequencies received over the 
phone line into binary 0s and 1s. 

What your modem is looking for when you are communi- 
cating is the change between MARK and SPACE. The dura- 
tion of this tone is controlled by your baud rate generator in 
your computer. The baud rate is simply the speed at which 



asynchronous data is transmitted and is the mathematical 
inverse of the time duration of the shortest signal element. 
Let's now describe a data character. If you look at figure 
1, you will see that there is a START BIT followed by a 
character, followed by one or more STOP BITS. (There may 
also be a parity bit included as well, but not necessarily. This is 
an option of YOURS— that is, when you set your parameters 
before calling another computer you are given the option to 
set your parity yourself.) The word or character length varies 
from 5 to 8 bits. Remember, that computers speak in binary, 
and each signal has its meaning. Binary 1 is considered to be 
a MARK, and binary is considered to be SPACE. 



STOP ELEMENT 



STOP ELEMENT 




ONE 8 BIT CHARACTER 
(00100000) 



Figure 1 . 

The computer knows that a character is being sent when 
it recognizes the START BIT. It then reads the data it is sent 
until it receives a STOP BIT Then it evaluates the information it 
has just received. The START element is a logic 0, and the 
STOP element is a logic 1 . The STOP element is held until the 
START element of the next character is transmitted. There is 
no limit to how long your computer can wait for the next 
character; however, there usually is a lower-end time limit, 
and that depends on the system you're on. 

With asynchronous communications (the type we're 
dealing with), there is no clocking or synchronizing or clock 
signal sent by the receiving computer to coordinate the infor- 
mation being sent across the line. (In synchronous situations, 
time intervals are used instead of a search for start and stop 
bits.) 

One of the convenient features of asynchronous com- 
munication is the fact that transmission over long distances 
can be accomplished using a minimum of three wires twisted. 
These wires go to the PINS which we have described below. 

Let's define these the functions of PINS. RS232C re- 
quires a 25 PIN connector called a DB25. The signals we are 
most interested in are transmitted through these PINS as 
listed below: 

Pin 1— Hardware Ground 

Pin 2— Transmit data 

Pin 3— Receive data 

Pin 4— Request to send data 

Pin 5— Clear to send data 

Pin 6— Data Set ready 

Pin 7— Signal Ground 

Pin 8— Carrier Detect 
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Pin 20— Data Terminal Ready 

Pin 22— Ring Indicator (used in some of the 

newer Auto Answering modems) 

In numerical order what these PINS do is this: 

PIN 1 —CHASSIS GROUND. This is a protective ground 
and should always be in installed. If you are using 
Radio Shack equipment this has already been done for you. If 
you are designing your own equipment or "home-brewing" 
you must make sure that PIN 1 goes to chassis ground on 
your computer. 

PIN 2— TRANSMIT DATA, or TD. Words (or the entire 
figure 1 including the STOP BIT, START BIT, parity bit, and 
character which is called a DATA WORD) are transmitted to 
the computer you are talking to along this line. This will be 
held in MARKING condition (or binary state of 1) during 
intervals when no data is being transmitted. 

PIN 3— RECEIVE DATA, or RD is the line that you will 
receive data words on, and that signal is also going to be held 
in a MARK condition at all times when no characters are 
present. 

PIN 4— REQUEST TO SEND, or RTS is used to control 
the direction of communications. When in full duplex, the 
SPACE condition holds the data device in transmit, the MARK 
in a non-output mode. When in half Duplex channel, the 
SPACE condition holds the communication equipment in a 
Transmit mode and conversely the MARK condition main- 
tains the equipment in a Receive mode. 

PIN 5-CLEAR TO SEND DATA, or CTS. This is a signal 
which your computer is expecting to receive (whether 
generated by the modem or software). It indicates to the 
device you are communicating with the fact that the modem 
is ready to transmit. The SPACE condition tells the equipment 
that the modem is ready to accept data. The MARK condition 
tells it that it is NOT ready to receive data. 

PIN 6— DATA SET READY, or DSR. This signal indicates 
to the equipment you are talking to that your equipment is 
prepared to accept data. A SPACE condition signifies that all 
is ok, and a MARK condition tells it that it is NOT ready. 

PIN 7— SIGNAL GROUND. This is used to insure data 
integrity in respect to transmission interference and is used 
by the system as a "0 reference voltage." 

PIN 8— CARRIER DETECT, or CD. If this is in the SPACE 
condition, it signifies to your computer that a carrier from 
another device is present. Sometimes this line is tied off with 
Pins 20 and 6 to force a certain condition (we'll explore that 
later). If this line is in a MARK condition, no communications 
can proceed. 

PIN 20-DATA TERMINAL. READY, or DTR. This is simi- 
lar to the carrier detect, but it tells the communications equip- 
ment that you are speaking to that your hardware is ready to 
receive information. 

PIN 22— RING INDICATOR, or Rl. This goes to an ON or 
a SPACE condition every time the phone rings. Whether or 
not your computer recognizes this signal depends on your 
modem. This is true for most signals, with the possible excep- 
tion of PIN 7 (signal ground) and PINS 2 and 3. 

It is frequently enough to have PINS 7, 2, and 3 present 
in a DB25 connector to insure that you will be able to speak to 
other machines. (This is what we meant by "3 wires twisted.") 
In this type of situation PINS 6, 8, and 20 should be tied to 
each other at both ends of the cable. In effect, what this 
results in is a situation where you are getting the CLEAR TO 
SEND, CARRIER DETECT, and DATA TERMINAL READY 



(the three hardware checking signals) all tied together in a 
positive condition which will allow you to communicate. 

All this is what happens electronically through your 
RS232C during Asynchronous Bit Serial communication. 
Your terminal program takes care of all these functions for you 
automatically. 

RS232C also handles many types of Synchronous com- 
munication, plus other types of Asynchronous communica- 
tion, much of which we will be discussing in future columns. 

As an additional feature to our column, each month we 
will try to answer some of the mail we have received from you. 
We are pleased by the response we have already had, and 
look forward to more letters. Let's talk! 

Kelman Aiken 
Stateline, NV 

I've heard several references to bulletin boards, but 
have never tried one. My hesitation has been that all appear 
to be aimed at the Model Is and Model Ills. I have a Model II. 

I hope your upcoming articles will describe how to sign 
on a Model II, (from TRSDOS Ready) and how to operate the 
printer for downloading and uploading. 

Dear Mr. Aiken, 

Thanks very much for your letter. While we have planned 
on doing a more complete article on Model II, we will briefly 
tell you how to get "up" to get you started and will in fact cover 
Model II communications (and Model 16) in the future. The 
bulletin boards are not so much oriented for the Models I and 
III, but more oriented to a particular communications proto- 
col which the Models I and III use. You, on the other hand 
have to do everything manually on your Model II. What 
follows below is EXACTLY what you have to do to get onto a 
Bulletin Board using 300 baud, 8 bit word, no parity, and 1 
stop bit. (These are the most common settings; however, 300, 
7, Even Parity, and 1 stop bit are also commonly used. If one 
doesn't work, try the other.) What you see below between the 
asterisks is what you must type in response to the TRSDOS 
prompts we have illustrated. 

TRSDOS READY 

*SETCOM A = OFF* 

PORTA IS DISABLED 

TRSDOS READY 

*SETCOM A = (300,8,N,1)* 

PORT A IS ENABLED AS 300 BAUD 8 BIT WORD NO 

PARITY 1 STOP BIT 
PORT B IS DISABLED 
TRSDOS READY 
'TERMINAL* 

At this point you will be presented with a menu. On that 
menu you will see "V" for video filter. Toggle that option ON by 
pressing V. You will also see "L" for Auto Line Feed. Toggle 
this ON as well by pressing L. You are now prepared to "talk" 
to most bulletin boards. At this point you may either dial and 
connect your modem in the ORIGINATE mode, or activate 
your autodialer, if you have one. As soon as you have made 
the connection to your chosen Bulletin Board, you will see 
their opening message and can take it from there, following 
whatever instructions are printed on your screen for you. 

In order to download, you must first return to your termi- 
nal menu by pressing the < BREAK) key. (You may return to 
this menu at any time during your connection to the Bulletin 
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Board by pressing the < BREAK) key. This will NOT discon- 
nect you!) Press R from the terminal menu. This will open a 
"BUFFER or storage place for the program you are about to 
take from the Bulletin Board. You will then be asked if you 
wish to reset your buffer. Answer with a YES. Then press T for 
Terminal, and you will be returned to your exit point on the 
Bulletin Board you are talking with. I suggest you open your 
buffer BEFORE you select the program you wish to 
download. Normally, the computer you're talking to will send 
signals to open and close your buffer for you, but with the 
terminal program on the Model II these signals are ignored, 
and you must manually open and close your buffer. Once you 
have received the program from the Bulletin Board, press 
< BREAK) to get back to your menu, then R to close your 
buffer (NOTE: all these commands are toggle commands . . 
. push once for ON and once for OFF). You then have an 
option to either dump the downloaded program to screen, 
printer, or disk. I do NOT recommend running the printer 
simultaneously with communications. I DO recommend that 
you dump your buffer to disk using the "C" command. You 
will be prompted for a filespec, at which point you may enter 
the name you wish to give the file. REMEMBER: The Bulletin 
Board CANNOT save files to your disk for you! You must do 
this yourself. 

DO NOT toggle open your buffer before you have saved 
the program you have downloaded. If you do, DEFINITELY 
do not reset the buffer, or you will lose your program! 

Now, we have downloaded a file from the Bulletin Board 
but it has a header of all sorts of garbage which came before 
your program, such as your selection of the program, and 
other things that might have been on the screen when you 
opened your buffer in the first place. I recommend that you 
use your SCRIPSIT disk to edit out these unnecessary char- 
acters and signals. Bear in mind that you have saved an 
ASCII file, and it must be converted by SCRIPSIT before 
SCRIPSIT can use it. It should be converted back afterwards 
as well. Please note: If any line in your ASCII file is longer than 
240 characters, when trying to load it, you will get a DIRECT 
STATEMENT IN FILE error in BASIC. Use your SCRIPSIT to 
break the lines in half, but remember to put an appropriate 
line number in front of it! 

Hope this helps you to get going online, and I hope you 
enjoy your sojourn through the Bulletin Board world! 

Eric Greene 

W. Palm Beach, FL 

As headquarters system for the GREENE MACHINE; a 
TRS-80 based network of Bulletin Boards, and in consider- 
ation of the number of systems I have across the country, I 
was wondering why my network was not mentioned in Janu- 
ary's column. 

I was very pleased to see that your column promoted the 
use and knowledge of Bulletin Boards in general, and that is 
why I was hopeful to see my own listed with those you did 
mention . . . Perhaps in some future column you might cor- 
rect this oversight. 
Dear Mr. Greene, 

I apologize for not having mentioned your system, but 
the list that was published was representative only and by 
FAR not meant to be a complete list. 

For you and Mr. Joe Simon of Bullet-80 (who also com- 
municated the same request) please note that I have listed 
below both your headquarters. 



To all the other myriad Bulletin Boards and networks we 
have inadvertently missed mentioning, our apologies, but to 
publish a complete list would be impossible. 
THE GREENE MACHINE - HQ BULLET-80 - HQ 

WEST PALM BEACH, FL DANBURY, CT 

305-965-4388 203-744-4644 

MOUSE NET- HQ 
BURLINGTON, VT 
802-862-7023 
Please watch for next month's column, in which we will 
continue our discussion of RS232C communications, as well 
as modem types and usages. J3 
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Curt Humphrey 
921 Lurline Dr. 
Foster City, CA 94404 



As a Model II owner, I wish to report my discovery of a 
non-Radio Shack product which fixes the only serious prob- 
lem I have experienced with my system in two years of heavy 
usage. It is my hope that other Model II owners can benefit 
from my discovery. 

The product is called a SEEBEE and is sold by Systems 
Enhancement Engineering, P.O.Box 40215, Indianapolis, IN 
46240. Its function is to eliminate the damage that will inevita- 
bly occur to a disk in drive when the system is accidentally 
booted with the external drives turned off. Its use allows 
complete freedom to operate with the outboard drives off 
from the start, or to turn them off— or on— subsequently. 
Besides eliminating the nagging worry, it saves wear and tear 
on the outboard drives by allowing them to be shut down 
when not needed. Obviously, energy is also saved. The unit is 
attached to the computer externally, in-line with the ribbon 
cable to the external drives, and is completely out of view 
under normal conditions. No external power is required. 

I have used the device for over a month and have found 
no way to defeat it. I would certainly recommend it for all 
Model II owners. 

Editor's note: We are passing this information on to you, 
but you should be aware that it has not been tested by 
Radio Shack. J3 
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rading Technique Using 
SCRIPSIT 



Dr. Timothy Little 
Associate Professor 
Michigan State University 
College of Education 



A DILEMMA FOR TEACHERS 

"I've got three sets of papers to grade this weekend!" A 
thought like that can be enough to chill the heart of the most 
dedicated teacher. At the same time, there are few more 
important aspects of a teacher's responsibility than that of 
providing prompt, meaningful feedback to students regard- 
ing the quality of their work. 

As a teacher for some twenty years in the public schools 
and at the university level, I must confess that meeting the 
"prompt feedback" responsibility has proven to be one of the 
most demanding and draining aspects of my work week. The 
problem is not so acute or pronounced with student work 
which lends itself to quantitative assessment. The prospect of 
grading an objective test which can be scored with an answer 
key and discussed in class item by item rarely provokes 
anxiety in the heart of the conscientious teacher. Further- 
more, with the advent of microcomputers, this type of evalua- 
tion can be handled more quickly than ever before. With my 
TRS-80 Model III, Line Printer VIII, and some "homebrew" 
grading programs, I have been ripping through such sets of 
student papers with gusto and little fatigue for about two 
years now. 

Unfortunately, student work which is written in essay 
form is another matter. Traditionally, such work is read by the 
teacher, who then assesses the quality of the student effort 
and annotates the paper with his or her remarks as to the 
student's performance. Since I am a firm believer in the vital 
importance of student essay work in the process of educa- 
tion, it is not unknown for my comments on papers to rival 
those of the pupils in length. But vital though it be, the spectre 
of a weekend of such grading has been enough to drive a 
teacher to drink, video games, or both. Specifically, there 
appear to be four aspects of grading student essays which 
contribute heavily to teacher antipathy toward this type of 
student assignment. Grading essays has often tended to be: 

1 . Disproportionately time consuming to a degree that can 
only be appreciated by practicing teachers. 

2. Tedious and repetitious to the extent that an instructor 
checks each paper for the same core ideas as well as 
writing mechanics. 

3. Cumulatively very tiring with the concomitant danger 
that the quality and length of teacher annotations de- 
cline from the first paper to the last. 

4. Frustrating to the instructor because when student pa- 
pers are returned to their owners, teacher comments will 
be lost to the teacher barring a massive and cumber- 
some copying operation. 



Given the above, it is a wonder, and much to the credit of 
teachers in general, that essay assignments are given as 
frequently as they are in our schools. 

SCRIPSIT AS AN ANNOTATING DEVICE IN GRADING 

Introduction to the potential of SCRIPSIT as an aid to 
grading student essay work began inauspiciously. Faced 
with a self-imposed deadline for the return of a set of student 
papers, I was hurrying to annotate them and was railing at the 
fact that I had to repeat the same comments regarding writing 
mechanics on more than a few of the essays. At that moment, 
the proverbial lightbulb switched on. Before thirty minutes 
had elapsed, I had warmed up my word processing program 
and typed a series of the most repeated grammar-related 
comments, both laudatory and cautionary, into my machine. 
Set off in blocks and designated by code letters, they consti- 
tuted a primitive menu of reactive comments. Using the menu 
required no more effort than that of typing in the pupil names 
and the applicable block letters for each student. Printed on 
fanfold paper, the comments were then cut out and stapled to 
each of the corresponding student papers. Inasmuch as I 
had saved the comments on cassette tape as well, I was also 
now in the possession of a complete set of comments for the 
class in the area of writing mechanics. 

Alerted to the potential of SCRIPSIT for the rapid annota- 
tion of student papers, by the time the next writing assign- 
ment came due I had prepared a considerably upscaled 
version of my word processing scheme. Specifically, I had 
prepared a model answer to the question which I posed in the 
student essay assignment. For each of the major three or four 
points which I hoped/expected students to treat in their re- 
sponses, I had developed a set of reactive statements of my 
own. These reactive statements were keyed to the various 
directions which student answers might be expected to take 
regarding the central points which I had identified. Each of 
these statements was then assigned a block designation. (My 
version of Model III SCRIPSIT 1 .0, permits up to 23 separate 
block designations.) I also retained the grammatical reactive 
comments from my first experiment and assigned them the 
block designations which remained after all of my other reac- 
tive comments were covered. 

I printed out a copy of my new "response menu," 
propped it against a typing stand, and set about the business 
of grading and "responding" to my student essays. 
Equipped with such a menu, I was able to create a formal 
essay response to each student's work by combining appro- 
priate blocks, printing each set of blocks, and affixing same to 
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the student essays as before. An outline example of this 
procedure follows in Figure 1 . 

Figure 1 . Instructor Response Menu 

Type Student Name: 



Major Points 
Students are 
Expected to 
Include in 
their Essays 


Alternat 
to Antic 


ive Instructor Responses 
ipated Student Answers 


Major Point #1 


Block Statement 
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Major Point #2 
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(F and H are 
reserved in 
S C R I P S I T 
1.0) 


Major Point #3 
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L 





Grammar/Mechanics 

Q (P is reserved) 

R 
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T 

U 
Applied to the work of a specific pupil, the response 
menu allows me to create a personalized response for that 
essay almost as quickly as I can think. All that is required is for 
the instructor to type in the student's name and then 
the appropriate block letters. With the depression of the 
( enter) key, the word processor takes over and creates 

Figure 2. 

Type Student Name: John Smith 
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Students are 
Expected to 
Include in 
Their Essays: 

Major Point #1 

Major Point #2 

Major Point #3 
Grammar/Mechanics 



Insert Block B 
C 
E 



Individualized teacher comments 
unique to John Smith's paper typed 
in addition to block inserts. 

Print, cut out, and staple teacher's comments to John Smith's 

essay. 



an extended paragraph of personalized responses keyed to 
the essay in question. Relieved of the drudgery of penning 
repetitious comments, a teacher may be encouraged by this 
procedure to further individualize his or her response to a 
student's work. This can be readily accomplished by typing in 
comments unique to a given paper as an add-on section to 
the block-generated prose. An outline example of the ease 
and simplicity with which this procedure might be applied to a 
hypothetical student paper follows in Figure 2. 

DIGEST OF THE ADVANTAGES OF USING SCRIPSIT IN 
THE ANNOTATION OF STUDENT ESSAYS 

Capturing the range of payoffs inherent in the SCRIPSIT 
annotating technique described requires that we return to the 
teacher cost of essay grading described in the introduction to 
this article. By way of review, essay grading was character- 
ized as frequently: 

1. "Disproportionately time consuming. . ." 

Clearly, use of SCRIPSIT can markedly reduce the 
amount of time that a teacher must spend annotating a given 
set of student essays. It was not uncommon for me to spend 3 
to 5 hours per set of papers prior to my discovery of 
SCRIPSIT's potential. I would conservatively estimate that 
use of the SCRIPSIT technique has cut that real time by one 
half. 

2. "Tedious and Repetitious. . ." 

When annotating student papers there is a strong ten- 
dency for the mind to race ahead of one's ability to put 
thoughts to paper. That is, there is a "writer's lag" which 
occurs when the teacher's thoughts about a piece of student 
writing are dammed up behind the inability of his or her 
fingers to move quickly enough. Nowhere does this cause 
more frustration to an instructor than when the necessity of 
recording repetitious but crucial ideas on a student paper 
slows down your ability to react to truly unique features of that 
essay. Once again, SCRIPSIT can ride to the rescue of 
teacher creativity! My experiments suggest that the tedium 
factor all but evaporates with the ability to string together, 
almost instantaneously, appropriate blocks of comment; leav- 
ing the instructor fresh to append those unique ideas hereto- 
fore dammed up by "writer's lag." 

3. "Cumulatively very tiring . . . .teacher annotations decline 

in quality and length from the first paper to the last." 
A clear and present danger to the principle of equal 
treatment of student work is implied above. The flagging 
teacher who is still at it during the 1 1 :00 p.m. news is not so 
likely to approach the 29th student essay with the same 
degree of intellectual fervor which marked his or her attack on 
paper number one, three hours earlier. Conscientious teach- 
ers are well aware of this problem, and employ a wide range 
of strategies to compensate for it, such as annotating papers 
in subsets of 5 to 10, with breaks scheduled between each 
batch. The SCRIPSIT annotation system should be viewed as 
a first-rate addition to the teacher's arsenal of compensatory 
strategies. Although I am happy to report that I emerge from 
my essay-grading sessions these days refreshed rather than 
numbed, I would also like to believe that, of equal impor- 
tance, the principle of fairness in grading is well served by my 
use of SCRIPSIT. This because I believe that with word pro- 
cessing to aid me in the annotation process I am less likely to 
subliminally fault papers which have the misfortune to be 
located near the bottom of my grading pile. I might add in 
passing that the time saved in annotating as well as the sense 
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of efficiency associated with working within the SCRIPSIT 
system can be a morale booster of no small measure for the 
veteran teacher. 
4. "Frustrating to the instructor because when student 

papers are returned., .the teacher's comments will be 

lost ..." 

Clearly, the SCRIPSIT annotating technique solves this 
problem. By typing all of his or her responses to student 
papers on assignment "X" into the computer as a single 
batch of data, the teacher has the capability of saving the full 
set of annotations for that assignment on tape or disk. The 
ability to call up a full set of comments to screen or printer in 
itself represents a most valuable resource to the teacher who 
wishes to obtain a quick but crude profile of how the class as a 
whole fared on assignment "X". 

There is, however, another way in which SCRIPSIT can 
be utilized to manipulate teacher annotation data which 
comes as an unexpected bonus of its editing function. 
SCRIPSIT, like other word processing packages, has the 
capability to carry out a "global search" across a manuscript 
for individual words within the text. That is, you specify a 
keyword that you wish to isolate, and the program will scan 
the text and identify all instances of that word. By identifying 
keywords for his or her reactive comments to students, a 
teacher may adapt this editing capability to quite a different 
use. By way of example: if the teacher wishes to identify all of 
the students who made error "y" in their essays and got 
teacher response "c" in return, he or she first loads the 
cumulative reactive comments for that essay assignment 
from tape or disk. The teacher then calls up a "global search" 
for all incidences of the keyword associated with block "c." 
Similarly, if the instructor wishes to tease out the names of all 
students who have a history of spelling problems in past 
essays, he or she has only to load past essay commentaries 
and institute a "global search" for the keyword associated 
with poor spelling. The potential uses of the "global search" 
function of SCRIPSIT seem limited only by the imagination. 

SUMMARY 

Clearly, the unorthodox uses for SCRIPSIT which I am 
proposing are primitive in their level of development. But, 
primitive as they are, they have already proved immensely 
useful to me in my efforts to be a better teacher; I can only 
hope that they prove equally useful to the readers of this 
article. More importantly, these ideas should serve to under- 
score the fact that there are potential uses of word processing 
packages for teachers that go far beyond that of the typing 
lab or typing form letters home to parents. Let's find them! 
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With Color LOGO for the TRS-80 Color Computer and 
the Network 2 Controller, you can set up a Network 2 Color 
LOGO lab in your classroom. 

Color LOGO is Radio Shack's computer language for 
young learners. It permits students to control the "Turtle" on 
the screen using graphics commands. Students can also 
create routines called "procedures," which cause the Turtle 
to draw more complex graphics on the Color Computer 
screen. 

Radio Shack's Education Division offers Color LOGO in 
two forms: on a diskette (for use with a 32K TRS-80 Color 
Computer with Disk Extended Color BASIC) and on a 
Program Pak (for use with any 16K or 32K TRS-80 Color 
Computer). 

THE SETUP 

The teacher's Host computer is a 32K Color Computer 
with a single disk drive. Disk LOGO is running in the Host 
computer. 

A Network 2 controller connects the Host computer with 
each of the Student Stations. The "Baud Rate" switch is set at 
1500, and the "Mode" switch is set at MPLX. Up to 16 
Student Stations can be connected to the Host, via the 
Network 2. 

Each Student Station is a 16K Color Computer with 
standard Color BASIC (the least expensive Color Computer). 
Each Student Station contains a LOGO Program Pak. 

SENDING PROCEDURES TO THE STUDENT STATIONS 

Perhaps the teacher has written a LOGO procedure, 
saved as procedure "A" on a diskette, to show the students. 
At the Host computer, the teacher types, 

(BREAK) CD QD (ENTER) 

(to load program "A" from the Host disk) 
Each student at a Student Station types, 

(BREAK ) CD CD (ENTER] 

(to prepare the Student Station to receive the pro- 
gram A through the Network 2) 
At the Host computer, the teacher types, 
GD CD Ce~n t e r) 

(to send the procedure through the Network 2) 
The LOGO procedure that was loaded from the teach- 
er's Host disk, is now transferred to each Student Station. 
Each student can edit and run the procedure at his or her 
Station. 

RECEIVING PROCEDURES FROM STUDENT STATIONS 

The teacher may want to save on a diskette, a procedure 
a student has written at a Student Station. 

The student has typed the desired procedure at the 
Student Station. 

The teacher turns the knob of the Network 2 to the 
number that corresponds with that Student Station. 

At the Host computer, the teacher types, 

(BREAK) CD CD (ENTER) 

(to prepare the Host computer to receive the proce- 
dure through the Network 2) 
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At the Student Station, the student types, 

(BREAK) GD CD fENTER) 

(to send the procedure through the Network 2 to the 
Host computer) 

The student's procedure is now transferred to the teach- 
er's Host computer. In this example, the teacher may want to 
save it as procedure "G" on the Host diskette. 

At the Host computer, the teacher types, 

GD C2D (ENTER) 

The student's LOGO procedure is now saved as proce- 
dure "G" on the teacher's diskette. 

Note that only one disk-equipped Color Computer 
is used in this classroom, but the entire class can save 
their LOGO procedures on diskettes. This provides sev- 
eral advantages. Procedures from sixteen different students 
can be saved quickly and reliably on diskette, and can be 
located and re-loaded easily. Saving procedures on a central 
disk also keeps control in the hands of the teacher, and saves 
a lot of time that would otherwise be spent in supervising the 
use of up to sixteen computer cassette recorders. 



THE COST OF THE NETWORK 2 COLOR LOGO LAB 

Hardware Costs 
1 



32K TRS-80 Color Computer with Extended 

Color BASIC (the Host computer) J 

Color TV (for the Host computer) J 

Disk Drive for the Host computer J 

Network 2 Controller S 

16K TRS-80 Color Computers with standard 

Color BASIC (16x299.95) S 

Color TVs (for the Student Stations) 

(16x399.95) 3 

Software Costs 

1 Color LOGO (Disk Version) < 

16 Color LOGO (Program Paks) (16x49.95) J 

Total Cost < 



1 

1 

1 

16 

16 



549.95 
399.95 
599.00 
499.00 

4,799.20 

6,399.20 

99.00 
. 799.20 
,14,144.50 

This represents the complete cost of the Network 2 Color 
LOGO Lab, including the TV monitors. 

Public schools and some private schools are eligible for 
discounts on this, and other Radio Shack hardware and 
software. For discount information and other information, call 
or write Radio Shack's Regional Educational Coordinator for 
your area. 



Radio Shack Regional Educational Coordinators 



Albany Region: 
Don Francolino 
Radio Shack 
39 S. Main Street 
W. Hartford, CT 06107 
203/232-4529 

Atlanta Region: 
Art Williams 
Radio Shack 
241 W. Wieuca Rd., N.E. 
Atlanta, GA 30342 
404/255-9438 

Boston Region: 
Dick Callahan 
Radio Shack 
Education Division 
250 Granite Street 
Braintree, MA 02368 
61 7/848-0780 

Chicago Region' 
Donna Comber 
Radio Shack 

679 W. North Ave., Suite 204 
Elmhurst, IL 60126 

Columbus Region: 

Sonny O. Compton 
Radio Shack 
4343 Williams Road 
Groveport, OH 43125 
614/836-2373 

Dallas Region 
Sid Agent 
Radio Shack 
2588 Royal Lane 
Dallas, TX 75229 
214/484-9943 (4) (5) 

Denver Region: 
Rosemary Shiels 
Radio Shack 
5890 W, 44th Avenue 
Denver, CO 80212 
303/424-4467 



Detroit Region: 
Celia Magro 
Radio Shack 

29548 Southfield Rd., Suite 200 
Southfield, Ml 48076 
313/552-9290 

Houston Region 
Jim Savoie 
Radio Shack 
7119 San Pedro 
San Antonio, TX 78216 
512/341-2622 

Kansas City Region: 
Dan Hennessey 
Radio Shack 

9400 36th Avenue, North 
Minneapolis, MN 55427 
612/546-4888 

Los Angeles Region: 
Terry Kramer 
Radio Shack 
14126 E. Firestone 
Santa Fe Springs, CA 90670 
213/921-2659 

Louisville Region: 
Penny Shattuck 
Radio Shack 
553 N. Court, Suite 175 
Palatine, IL 60067 
312/991-2275 

Miami Region: 
Peter Lenkway 
Radio Shack 

4360 N. Federal Highway 
Ft. Lauderdale, FL 33308 
305/493-5021 

New York Region: 
Bob Sochor 
Radio Shack 

6 East 39th Street, Room 401 
New York, NY 10016 
212/696-9800 



Mick Nuspl 

Radio Shack 

6 East 39th Street, Room 401 

New York, NY 10016 

212/696-9800 

Norfolk Region: 
Jerry Proffitt 
Radio Shack 
5701 West Park Drive, 
Suite 205 

Charlotte, NC 28210 
704/527-7442 

Philadelphia Region: 
Donald Wallick 
Radio Shack 

Rt. 130 & Cinnaminson Ave. 
Cinnaminson, NJ 08077 
609/829-691 1 

Madelyn Lesnick 

Radio Shack 

Crest Plaza 

Cedar Crest Blvd. & U.S. 22 

Allentown, PA 18104 

215/395-5755 

Pittsburgh Region: 
Winston Ferrell 
Radio Shack 
1679 Washington Road 
Pittsburgh, PA 15228 
412/833-1918 

San Diego Region: 
Bob Norman 
Radio Shack 
12821 Knott Street 
Garden Grove, CA 92641 
714/894-1371 x255 

San Francisco Region: 
Steve Terhune 
Radio Shack 

1291 E. Hillsdale, Suite 211 
Foster City, CA 94404 
415/574-1708 



Seattle Region: 
Annie Gillvan 
Radio Shack 

5030 Roosevelt Way, N.E. 
Seattle, WA 98105 
206/527-0940 

Tampa Region: 
Paul Hoagland 
Radio Shack 

5729 N. Hoover Blvd., Suite 230 
Tampa, FL 33614-5373 
813/886-2974 

Washington, DC. Region 
Kevin Hogans 
Radio Shack 
Computer Center #7267 
48 W. Ridgley Road 
Lutherville, MD 21093 
301/561-2474 



Eastern Educational 
Marketing Manager: 

Ron Moore 

Radio Shack 

1400 One Tandy Center 

Fort Worth, TX 76102 

817/390-3910 

Western Educational 
Marketing Manager: 

Scott Bowers 

Radio Shack 

1400 One Tandy Center 

Fort Worth, TX 76102 

817/390-3910 
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TRS-80 Model 4 Desktop Computer 



By Bruce Elliott 



A special note to owners of Models I and III: 

The new Model 4 may look similar to the Model III with 
an attractive off-white finish, but the differences are amazing. 
Here are some of the things which you have asked for that are 
in the Model 4: 64K RAM machine (CP/M®) compatible, 80 
column by 24 line display, Audio, Three special function keys, 
a Control Key, Caps key, and a new TRSDOS which is data file 
compatible with LDOS 5. 1.3. Read on for more information 
on this incredible machine. . . 

The Model 4 is a Desktop Computer designed for profes- 
sionals, managers, educators and personal computer users. 
The two disk version is priced at $1 999 and includes a Z80A 
operating at 4 MHZ, 64K RAM, two double density disk 
drives, parallel printer interface, RS232C interface, 12" 
Monitor, 70 key keyboard with numeric pad and an 80 col- 
umn by 24 line display providing upper and lower case 
characters and reverse video. Sound (1 voice, 7 tone) is also 
included. 

Many of the features mentioned above are "extras" with 
other popular computers. A comparably configured Apple 
He "package" for example, would still require the addition of 
a numeric pad, 80 column/memory upgrade, second disk 
drive, hardware card containing Z80 for CP/M compatibility, 
RS232C and printer interface, a communications program, 
print spooler option, memory disk option and additional doc- 
umentation. An IBM® PC would typically require the addi- 
tional purchase of MSDOS™, a second drive, monitor, 
monochrome adapter card, asynchronous adapter card, 
and a Z80 option card for CP/M compatibility. (Some options 
provided by third party suppliers.) 

The Model 4 two disk version provides a complete sys- 
tem (less printer) and includes in the base price the popular 
options mentioned above which personal computer users 
typically add to their system after purchase. Additional op- 
tions for the Model 4 include an additional 64K RAM, hard 
disk, a large selection of printers and other peripherals includ- 
ing, pen/plotters, digitizers, and more. CP/M Plus and bit 
mapped high resolution graphics will be available soon. 

The Model 4 includes a new TRSDOS and an all new 
Microsoft Disk BASIC, along with a tutorial introduction to 
programming in BASIC, an introduction to the computer, a 
350 page Reference Manual, and a reference card. 
The Model 4 provides access to a large library of software 
from Radio Shack and other suppliers since it supports 
Model III TRSDOS, LDOS, C/PM PLUS, and its own 
TRSDOS version 6.0. 

Feature/Benefits Summary: 

DISPLAY 

An 80 column display is standard on any disk based 
Model 4. (The tape based 16K Model 4 works just like 
our Model III, including 64 x 16 screen.) The 80 character 
by 24 line display will be supported by new Model 4 disk 
software for word processing, spreadsheets, and more. In 



addition, a double width or 40 character display mode is 
software selectable. Model 4 also operates in 64 characters 
by 1 6 lines or double width 32 by 1 6 display selections under 
TRSDOS 1.3 or LDOS 5.13. These widths provide compati- 
bility with the vast library of Model III and Model I software. 

Reverse video is included along with the ability to gener- 
ate block graphics, and 96 special graphics characters. An 
optional bit mapped high resolution graphics board and 
software package will be available to provide 640 by 240 
pixel resolution, along with a Graphics BASIC that provides 
easy to use commands like PAINT, LINE, CIRCLE, and 
others. 

Model 4 includes a 12" high-resolution B/W monitor 
enclosed in a compact (12 1 / 2 " by18 7 /s" by 21 1 / 2 ") Desktop 
Unit providing for internal expansion. 

User selectable options include choice of cursor charac- 
ter from the ASCII character set or special character set, and 
blinking/non-blinking cursor. 

MEMORY 

Expansion to 128K bytes of main memory. 64K RAM is 
standard for Model 4 disk systems with an additional 64K 
RAM option (for a total of 1 28K) priced at $1 49.00 (26-1 1 22 
plus installation). Radio Shack will introduce new products, 
including VisiCalc, that will take advantage of the additional 
memory. 

Model 4 TRSDOS includes a "MEMDISK" feature that 
easily simulates a disk drive in available memory, either within 
the standard 64K, or using the additional 64K "bank" of 
memory. This allows owners to treat their memory disk drive 
(or MEMDISK) like any other disk drive, but gain significant 
speed advantages. No hardware options are required, and 
the MEMDISK software is included with the Model 4 disk 
versions. MEMDISK is great for programs which use over- 
lays, or program modules normally residing on disk. These 
files (or TRSDOS system files) can be placed in MEMDISK for 
amazing response. 

Cassette systems are upgraded to 64K from 1 6K with the 
same memory option (26-1 122) at $149.00 plus installation. 
Disk drives are available for upgrading the cassette version. 
The first internal drive is now $649.00 plus installation 
(26-1 1 27). This price includes TRSDOS 6.0, Disk BASIC, the 
sound feature, and the disk system documentation. 

SPEED 

The Model 4 uses a Z80 A operating at a 4 MHZ clock 
rate for high performance. The Model III computer (and the 
Model 4 operating as a Model III) operate at 2 MHZ. 
TRSDOS 6.0 is designed with high performance in mind. The 
combination of TRSDOS 6.0 and the Z80 A provide for fast 
operation. When combined with MEMDISK, owners will find 
that the Model 4 can tackle big jobs easily. 

VAST SOFTWARE LIBRARY 

The Model 4 executes, without change, all Radio Shack 
software available for the TRS-80 Model III. No conversion or 
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updating is required since the Model III operating system 
(TRSDOS 1 .3) will run unaltered in the Model 4. Operation of 
Model III software is possible because we included the 
Model III ROM in the Model 4. The ROM is only used for 
Model III software, and we have tested the Model III soft- 
ware to ensure compatibility. As a result, the Model 4 can 
operated in two "modes" looking like either a TRS-80 
Model III, to gain access to current software, or running at the 
default 4 MHZ speed and 80 column display when utilizing 
Model 4 TRSDOS 6.0. 

Other options for the Model 4 include CP/M. 
Radio Shack will sell CP/M Plus and CBASIC. C/PM Plus is 
the latest version of CP/M and is compatible with CP/M 2.2, 
but has many new features. Both are provided to 
Radio Shack by Digital Research. No hardware card is re- 
quired and the user simply boots the CP/M version of the 
software. 

Radio Shack's current alternate operating system for the 
Model III, LDOS 5.1.3 will also operate unaltered in the 
Model 4. 

As a result of these "modes" , thousands of programs are 
currently available for the TRS-80 Model 4. This allows cur- 
rent owners of the TRS-80 Model III to obtain both data file 
compatability and media interchangeability by using LDOS 
on their Model Ills, and TRSDOS version 6 on their Model 4s. 
Model I owners, operating under LDOS, are able to inter- 
change data files with Model Ills using LDOS, and Model 4s 
using TRSDOS version 6. 

Model 4 owners simply use current Model III application 
disks as they are, or run new Model 4 applications designed 
to take advantage of the increased speed and new features of 
the Model 4. 

KEYBOARD 

The Model 4 has a 70- key typewriter-style keyboard with 
a standard 1 2-key numeric pad. Now included are 3 function 
keys, caps and control keys for use with TRSDOS 6.0. The 
keyboard can generate the full ASCII character set. The 
keyboard delay (the length of time before a key begins re- 
peating) and repeat rates are user definable from the operat- 
ing system. TRSDOS 6.0 also provides a keyboard 
type-ahead feature and the use of a "keyclick" filter (so you 
can hear each key as its is pressed) when desired by the 
operator. In addition, TRSDOS 6.0 allows the user to assign 
strings to the alphabetic keys. This feature allows often en- 
tered TRSDOS commands or BASIC commands to be stored 
and then accessed with a simple keystroke to speed 
programming. 

SOUND 

Sound is provided with Model 4 Disk systems and Disk 
upgrade kits. The sound's tone and duration are easily speci- 
fied, without POKEs, using BASIC'S SOUND command. .In 
addition, TRSDOS provides for use of the sound feature in 
JCL files to prompt an operator during unattended execution. 

THE SYSTEMS 

The Model 4 cassette system (RS stock #26-1067, 
$999.00) includes 1 6K RAM , with internal expansion room to 
add 2 disk drives, more RAM (up to 1 28K total), RS232C, and 
the high-resolution option. 

The single drive Model 4 (RS stock #26-1 068, $1 699.00) 
includes 64K RAM and one 40 track double density 5 1 /4" 
disk drive providing 174K formatted capacity. 



The Model 4 two drive Business Computer (RS stock 
#26-1069, $1999.00) provides 64K RAM and two 40 track 
double density 5 1 /4" drives with a total disk capacity of 348K. 
The two drive system also includes RS232C. 

All disk based Model 4s allow for the addition of two more 
external drives and up to 4 of Radio Shack's 5 MB Hard Disk 
units. 

Disk Systems include Model 4 TRSDOS version 6.0 and 
DISK BASIC. Both include advanced features designed for 
personal or business use. 

MODEL 4 TRSDOS FEATURES INCLUDE: 

All files carry the date they were created and carry a flag 
if they have been modified. This makes selecting files to be 
backed up, removed, or copied quite easy. TRSDOS 6.0 
even allows you to partially describe the names in a group of 
the files rather than using each filename. 

These file selection features speed backing up hard disk 
files to floppy disk. When using a hard disk, backups can 
span multiple floppies, and TRSDOS will prompt you for 
diskette swaps when reconstructing a file on the hard disk. 

Directory listings are sorted alphabetically by filename, 
and can be further specified by date range, whether modified 
or not, and by partial description of the filename. 

TRSDOS contains a complete Job Control language to 
handle unattended operations and completely control the 
application. Execution can be tied to the time using the WAIT 
and SLEEP commands, and can provide both visual and 
audio alerts. JOBLOG records the results of an unattended 
application including a time stamp for audit purposes or error 
history. 

Cassette support is provided for the Model 4 to read or 
write cassette tapes made with the new TRS-80 Model 100. 

TRSDOS 6.0 includes COMM, a complete terminal pro- 
gram which includes disk file send and receive, and 
Radio Shack modem support including 1200 baud for com- 
munication with other TRS~80s or information networks. Auto- 
matic buffering and control of handshaking is available in 
COMM, if required. 

The SPOOL command allows owners to keep using the 
Model 4 even while printing, by assigning available memory 
or disk space as a "buffer" to capture output. This keeps the 
printer busy while you do something else. Your SPOOL mem- 
ory can come from the regular 64K RAM, or you may assign 
32K of the additional bank of memory to the spooler. 

The FORMS command lets you tailor printouts and han- 
dle preprinted forms by changing the number of lines per 
page, set margins, set number characters per printed line, 
set page length, indent, and more. 

TRSDOS provides the ability to LINK devices to one 
another, or to ROUTE information to new destinations. These 
features add flexibility to your system. For example, you 
might send program output to disk rather than to a printer 
when the printer is not available, or you might transmit normal 
printed output, like a report, through the RS232C in addition 
to printing it. 

Input/output data can be FILTERed or modified by a user 
program to aid an application. Examples would be to alter 
printer output, RS232C output, act upon certain keys when 
pressed, as determined by a user driver or FILTER program. 

Included are a disk altering DEBUG utility with simul- 
taneous Hex and ASCII display, TIME and DATE display, 
PATCH, and other disk utilities. 
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Model 4 BASIC is a new Microsoft BASIC. The BASIC 
includes CHAIN and COMMON to allow larger BASIC pro- 
grams and 40 character maximum variable names. Model III 
owners will still be able to run their BASIC applications in the 
Model III mode (under TRSDOS 1 .3) without changes. 

Model III UPGRADE TO MODEL 4 

Radio Shack will upgrade your Model III to include 
comparable Model 4 capabilities for only $799 
(26-1123), plus installation. 

If you have a TRS-80 Model III with at least one disk drive 
and 32K RAM, your Model III will be upgraded to a 64K 
Model 4. We will replace your Model III keyboard with a 
Model 4 keyboard, and we will install Model 4 sound capabili- 
ties. You will retain the same Model III cabinet, disk drive(s), 
and RS-232 (if it was in your Model III). We will also include a 
new Model 4 logo, 64K memory button, TRSDOS 6.0, Disk 
BASIC and new documentation. 

This upgrade is done by a board exchange. This means 
that Radio Shack will put a Model 4 board and memory into 
your machine and keep the old Model III board and memory. 

Your newly upgraded Model III will still be able to do all 
the things it could do as a Model III, as well as have the ability 
to run TRSDOS 6.0 and optionally CP/M Plus. 

MODEL 4 BASIC 

Unless otherwise stated, the following information ap- 
plies to Model 4 BASIC. 

40 character variable names (That is, the first forty char- 
acters in a variable name are considered significant. In 
Model III BASIC, only the first two characters in a variable's 
name are significant.) 

Below is a list of BASIC statements and commands from 

Model II/1 2 BASIC, Model III Disk BASIC, and Model 4 Disk 

BASIC. Model 11/12 BASIC was included in the list for com- 
parison purposes. 

Statements for assigning values to variables and defining memory 
space 

Statement Brief Description 

Model II BASIC 

Model III Disk BASIC 
Model 4 Disk BASIC 

CLEAR XXX Clears the value of all variables and closes all 

open files. Can optionally specify the highest 
memory location available to BASIC and specify 
the amount of memory available for stack 
space. In the Model 4, string space is managed 
dynamically and is not specified in the CLEAR 
statement. 

Model III BASIC: CLEAR is used to reset all 
numeric variables to zero, and all string vari- 
ables to null. Optionally, CLEAR can specify the 
number of bytes available for string storage. 

COMMON X Passes one or more variables to a chained 

program. 

DATA XXX Stores numeric and string constants to be ac- 

cessed by a READ statement. 

DEF FN XXX Defines a function name based on the following 

function definition. 

DEFDBL X XX Defines any variable beginning with the speci- 

fied letters as being double precision. 

DEFINT XXX Defines any variable beginning with the speci- 

fied letters as being integer. 
Defines any variable beginning with the speci- 
fied letters as being single precision. 

DEFSTR XXX Defines any variable beginning with the speci- 

fied letters as being a string. 

DIM XXX Sets aside storage for the specified arrays with 

the dimensions given. All array values are set to 
zero for numeric arrays, or to null for string 
arrays. 



ERASE X X Erases one or more arrays from a program. 

LET X XX Assigns the expression value to the specified 

variable. The keyword LET is optional. 

MID$ XXX Used on the left side of an assignment state- 

ment, MID$ replaces a portion of the existing 
string with a new string. 

OPTION X The value supplied (0 or 1 ) determines the min- 

BASE imum value for an array subscript. The default 

minimum is zero. 

RANDOM XXX Reseeds the pseudo-random number 

generator. 

READ XXX Reads values from a DATA statement and as- 

signs them to supplied variables. 

RESTORE XXX Restores a program's access to previously read 

DATA statements. Line number is an optional 
parameter. 

SWAP X X Exchanges the values of two variables of the 

same type. 

Statements for altering program sequence 
Statement Brief Description 

Model II BASIC 

Model III Disk BASIC 
Model 4 Disk BASIC 

CHAIN X Loads a BASIC program, chains it to a "main" 

program, and begins running it. Options in- 
clude MERGE, first line number to be executed, 
variable value retention without COMMON, and 
DELETE specified range of program lines. 

END XXX Ends executions of a BASIC program. 

FOR/STEP/ XXX Establishes a program loop. Note: Model 4 

NEXT BASIC skips the body of the loop if the loop's 

initial value times the sign of the STEP increment 
exceeds the loop's final value times the sign of 
the STEP increment. This prevents the com- 
puter from inadvertantly entering an endless 
loop. 

GOSUB XXX Goes to a subroutine which begins at the line 

specified. 

GOTO XXX Goes to the specified line. 

IF/THEN/ XXX Tests a conditional expression and modi- 

ELSE fies program flow based on the result of the test. 

ON... XXX Goes to a subroutine at a line number which is 

GOSUB determined by the value of a supplied number. 

ON . . . XXX Goes to a line number which is determined 

GOTO by the value of a supplied number. 

RETURN XXX Returns program control to the BASIC state- 

ment immediately following the most recently 
executed GOSUB. 

STOP XXX Stops program execution. 

WHILE ... X Executes a series of program statements in 

WEND a loop as long as a given condition is true. 

WAIT X Suspends program execution until a machine 

input port contains a specified value. 

Statements for storing and accessing data on a disk 
Statement Brief Description 

Model II BASIC 
Model III Disk BASIC 
Model 4 Disk BASIC 



DEFSNG XXX 



CLOSE 
FIELD 

GET 

INPUT# 



LINE 

INPUT# 

LSET 

OPEN 



XXX 
XXX 

XXX 

XXX 



XXX 



XXX 



XXX 



Closes access to a disk file. 

Divides a direct-access buffer into one or more 

fields. 

Gets a record from a direct access disk file and 

places it in the specified buffer. 

Inputs data from a sequential disk file and stores 

it in numeric and/or string variables. Leading 

spaces in the data file are ignored. 

Inputs an entire line from a sequential disk file 

into a string variable. 

Sets data, left justified, into the specified field in a 

direct-access buffer. 

Opens a disk file. The information supplied will 

determine if the file will be used for sequential 

input, sequential output, or direct access. Also 

specified is the file buffer to be used, the name 

of the file, and optionally, the record length for 

direct access. 
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CONT 


X X X 


ERL 


X / X 


ERR 


X X X 


ERRS 


X 


ERROR 


x .- X 


ON ERROR 


X "< x 


GOTO 




REM 


X XX 


RESUME 


XXX 


TROFF 


X X X 


TRON 


X > X 



PRINT# XXX Prints data items into a sequential file using the 

specified disk file buffer 
PRINT# X v X Prints data items into a sequential file using the 

USING specified disk file buffer in the format specified 

by the USING statement. 
PUT X * X Puts a record into a direct-access file using the 

indicated disk file buffer, 
RSET X X X Sets data, right justified, into the specified field in 

a direct-access buffer. 
WRITE# X Writes data to a sequential access disk file. 

Statements for debugging a program 
Statement Brief Description 

Model II BASIC 

Model III Disk BASIC 
Model 4 Disk BASIC 

Resumes program execution after 
CBR E A K ) or STOP. 

Returns the line number in which the most re- 
cent error occurred. 

Returns the error code of the most recent error. 
Model III BASIC; Use ERR/2 + 1 to determine 
the actual error code. 

Returns a system error number and message. 
Simulates the specified error during program 
execution 

Transfers program control to the indicated line if 
an error occurs. 

Inserts a remark line in a program 
Tells the program where to continue execution 
after an error has been handled by the program. 
Turns the trace function off. 
Turns the trace function on. 

Statements for inputting or outputting data to the video display or the 
line printer 

Statement Brief Description 

Model II BASIC 
- Model III Disk BASIC 
Model 4 Disk BASIC 

Clears the screen. 

Inputs string and/or numeric data from the key- 
board into one or more variables. An optional 
string prompt may also be displayed. 
Inputs an entire line (up to 254 characters) from 
the keyboard 

Lists the BASIC program in memory to the 
display. 

Lists BASIC program lines in memory to the 
printer. 

Prints data to the printer if one is available. 
LPRINT can be used in conjunction with TAB 
and USING. 

Prints numeric or string data on the display. 
Prints numeric or string data on the display at 
the specified screen position. The screen posi- 
tion can be specified as an absolute value 
(0 - 1919) or by indicating the screen row 
(0 - 23) and column (0 - 79) at which the data 
item is to be placed. 

Model III BASIC does not support PRINT® with 
row and column. Also, there are only 1 024 char- 
acter positions on (0 - 1023) on the Model III 
video. 

Prints numeric or string data on the display at 
the horizontal position specified by the TAB 
value. 

Prints numeric or string data on the display 
according to the format specified in the USING 
statement. 

Sets the line width for printing on the display or 
on a printer. 
Writes data on the display. 



CLS 


XXX 


INPUT 


XXX 


LINE INPUT 


X X X 


LIST 


X X X 


LUST 


X / X 


LPRINT 


X X X 


PRINT 


XXX 


PRINT® 


XXX 



PRINT TAB XXX 



CMD "A" 
CMD "B" 
CMD "C" 


X 
X 
X 


CMD "D" 
CMD "E" 
CMD "I" 
CMD "J" 
CMD "L" 


X 
X 
X 
X 
X 


CMD "O" 
CMD "P" 
CMD "R" 
CMD "S" 
CMD "T" 
CMD "X" 


X 
X 
X 
X 
X 
X 


CMD "Z" 
DELETE 


X 
XXX 


DEF USR 


X X X 



PRINT 
USING 

WIDTH 

WRITE 



XXX 



Statements for performing system functions or entering other modes 
of operation 

Statement Brief Description 

Model II BASIC 
Model III Disk BASIC 
Model 4 Disk BASIC 

AUTO XXX Automatically generates new line numbers dur- 

ing program entry. Optionally, the starting line 
number and the increment between successive 
line numbers may be specified, 

CALL X Transfers program control to an assembly- 

language subroutine stored at variable. Vari- 
able contains the starting address for the sub- 
routine An optional parameter list can be 
included to pass values to the subroutine. 
Return to Model III TRSDOS, 
Enable/Disable the fB R E A K ) key. 
Compress a BASIC program by removing 
spaces and REMarks, 
Display the directory for the specified drive. 
Display the previous TRSDOS error 
Return a command to TRSDOS for execution. 
Convert a calendar date. 
Load a Z-80 subroutine or program file into 
RAM. 

Sort a string, array 
Check printer status 
Start real-time clock display. 
Normal return to TRSDOS. 
Turn off real-time clock display. 
Cross-reference of reserved words, string vari- 
ables, or strings in a BASIC program. 
Duplicate output to display and the printer. 
Deletes specified lines from the BASIC program 
in memory. 

Defines the starting address for one of 10 (0-9) 
assembly language routines 
Enters the EDIT Mode so you can edit the speci- 
fied line. 

Deletes the specified file from disk. 
Loads the specified BASIC program into mem- 
ory from disk. Any previously resident BASIC 
program will be deleted, all variables will be 
cleared, and all OPEN files will be closed. The 
",R" option will leave OPEN files open and auto- 
matically RUN the program. 
Loads the specified BASIC program into mem- 
ory and merges it with the BASIC program cur- 
rently in memory. 

Allows you to rename a disk file without return- 
ing to TRSDOS. 

Model III Disk BASIC. The keyword NAME is 
used for the renumber function 
Deletes the BASIC program currently in mem- 
ory and clears all variables. 
Sends the supplied data byte to the specified 
machine output port. 

Writes the supplied data byte into a memory 
location. 

Renumbers a BASIC program Optional param- 
eters include line number to start renumbering 
at, first new line number to use, and the incre- 
ment between new line numbers. In Model III 
Disk BASIC the keyword NAME is used for the 
renumber function. 

Runs a program. RUN by itself, or with an op- 
tional line number, will execute the BASIC pro- 
gram currently in memory. RUN followed by a 
disk filespec and optionally by a ',R' will load the 
indicated BASIC program from disk into mem- 
ory and execute it. The optional ',R' will cause 
disk files, which were OPEN before the RUN 
statement was executed, to remain open, 

SAVE X X X Saves the BASIC program currently in memory 

onto disk in compressed format with the pro- 
vided filename. The ',A' option will save the 



EDIT 

KILL 
LOAD 



MERGE 



NAME 



NEW 



OUT 



POKE 



RENUM 



RUN 



XXX 

XXX 
XXX 



XXX 



XXX 



XXX 



XX 



XX 



XXX 



XXX 
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CDBL 


XXX 


CINT 


XXX 


COS 


XXX 


CSNG 


XXX 


EXP 


XXX 



program in ASCII format The : ,P' option pro- 
tects the file by saving it in an encoded binary 
format. 

Model III BASIC does not have the ',P' option. 
SYSTEM XXX Returns the computer to TRSDOS. If an optional 

library command is included, the command will 
be executed by TRSDOS, and you will be re- 
turned to BASIC with your program and vari- 
ables intact. 

Model III BASIC The SYSTEM command is 
used to put the computer into the System mode, 
which allows you to load object files from tape. 

Numeric Functions (Unless otherwise specified, numeric functions 
return single precision results.) 
Statement Brief Description 

Model II BASIC 
Model III Disk BASIC 
Model 4 Disk BASIC 

ABS XXX Computes the absolute value of a 

number 

ASC XXX Returns the ASCII code for the first character of 

a string 

ATN XXX Computes the arc tangent (in radians) of a 

number 

Converts a number to double precision 
Converts a number to integer representation. 
Computes the cosine of a number whose value 
is in radians. 

Converts a number to single precision. 
Calculates the natural exponential of the speci- 
fied number. 

Returns the truncated integer form of the speci- 
fied number 

Returns the amount of free memory space (if a 
dummy number is used) or the amount of free 
string space (if a dummy string is used.) 
Searches for the first occurrence of the search 
string in the target string. An optional character 
position for starting the string may be specified. 
Inputs a value (0-255) representing the informa- 
tion present at the specified port. 
Converts the specified number to the largest 
integer which is not larger than the specified 
number The value of the specified number is 
not limited to the normal integer range 
Returns the number of characters in the string. 
Computes the natural logarithm of the number. 
Returns the number of unused and unprotected 
bytes in memory. 

Returns the value of the specified memory 
location 

Generates a pseudorandom number between 
zero and the supplied number. If the supplied 
number is zero, a decimal value between and 
1 will be generated. 

Determines the algebraic sign of the number. 
Computes the sine of a value provided in 
radians 

Calculates the square root of a number 
Computes the tangent of a number supplied in 
radians 

USR XXX Calls a user's assembly-language subroutine 

and passes a value to the routine. 

VAL XXX Calculates the numeric value of a string. 

VARPTR XXX Returns the absolute memory location where a 

variable or disk buffer is stored in memory. 

String functions 

Statement Brief Description 

Model II BASIC 

! Model III Disk BASIC 
Mode! 4 Disk BASIC 
CHR$ XXX Returns the character corresponding to an 

ASCII or control code. 



DATES X X 

ERRSS X X 



HEX$ 



X X 



FIX 



FRE 



INSTR 



INP 



INT 



LEN 
LOG 
MEM 

PEEK 

RND 



XXX 



XXX 



XXX 



XX 



XXX 



XXX 
XXX 
XXX 

XX 

XXX 



SGN 
SIN 


XXX 
XXX 


SQR 
TAN 


XXX 
XXX 



LEFTS 


XXX 


MID$ 


XXX 


OCTS 


X X 


RIGHTS 


X ;•: X 


SPACES 


X X 


STRS 


XXX 


STRINGS 


XX X 



TIMES 



XXX 



Returns the current system date 
Returns the number and description of the most 
recent BASIC disk-related error 
Calculates the integer hexadecimal value of the 
number specified, and returns this value as a 
string. 

Returns all characters left of and including the 
specified position in the string. 
Returns a substring of the specified string, be- 
ginning at the indicated character position. 
Calculates the integer octal value of the number 
specified, and returns this value as a string. 
Returns the rightmost number of characters in a 
string. 

Returns a string of spaces The length of the 
string is determined by the value provided. 
Converts the number to a string value. 
Returns a string containing a specified number 
of identical characters. 

Returns the time of day as set in the computer. 
Model III BASIC: Returns both the system time 
and date. 



Input/Output Functions 
Statement 



Brief Description 

Model II BASIC 

Model III Disk BASIC 
Model 4 Disk BASIC 

XXX Convert string value to a double precision nu- 

meric value. 

XX X Convert string value to an integer. 

XXX Convert string value to a single precision nu- 

meric value 

XXX Detects the end of the specified disk file. 

XXX Returns a one-character string from the key- 

board witho ut the user having to press 
(ENTER ) If no key is pressed, a null string 
is returned. 

X X Inputs a string of characters from the keyboard. 

If the optional buffer number is present, the 
string of characters is input from the specified 
sequential disk file. 

XXX Returns the current record number for the spe- 

cified disk file. 

X X X Returns the number of the last record in a direct 

access file. 
X Returns the position of the line printer's print 

head within the line printer's buffer. Note. The 
value returned by LPOS does not necessarily 
give the physical position of the print head. 

X: X X Converts a double precision numeric value to a 

string value Used with LSET and RSET to place 
a double precision number into a direct access 
file buffer 

X X X Converts an integer value to a string value. 

Used with LSET and RSET to place an integer 
into a direct access file buffer. 

X X X Converts a single precision numeric value to a 

string value. Used with LSET and RSET to place 
a single precision number into a direct access 
file buffer 

X X X Returns the current horizontal (column) position 

of the cursor on the display. 

X X Returns the current vertical (row) position of the 

cursor on the display 

X X Prints a line of spaces. The number of spaces 

printed is determined by the value provided. 
SPC can only be used with PRINT, LPRINT, and 
PRINT# 



Statements for storing and accessing data on a tape. 
Statement Brief Description 

Model II BASIC 

Model III Disk BASIC 
Model 4 Disk BASIC 
CLOAD X Lets you load a BASIC program stored 

on cassette. 



CVD 

CVI 
CVS 

EOF 
INKEYS 



INPUTS 



LOC 



LOF 



LPOS 



1KDS 



MKIS 



MKSS 



POS 



ROW 



SPC 
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CLOAD? 


X 


CSAVE 


X 


INPUT#-1, 


X 



PRINT#-1, 



Lets you compare a BASIC program stored on 
cassette with the program currently stored in 
memory. 

Stores the memory resident BASIC program on 
cassette tape. 

Inputs the specified number of variables stored 
on cassette tape and assigns them to the speci- 
fied variable names. 

Prints the values of the specified variables onto 
cassette tape 



Statements for Model III graphics. 
Statement Brief Description 

Model II BASIC 
Model III Disk BASIC 
Model 4 Disk BASIC 
POINT X Tests the specified graphics block to determine 

if it is 'on' or 'off'.. 
RESET X Turns off a graphics block at the location speci- 

fied by the given coordinates. 
SET X Turns on the graphics block at the location spe- 

cified by the given coordinates. 



DISK OPERATING SYSTEMS 

The Model 4 will operate under three different operating 
systems. If you use a Model III TRSDOS 1 .3 diskette (not 
included) in the machine, the Model 4 will behave as a 
Model III, including the 64 character Model III screen and 
the 2Mhz clock rate. If you use your Model 4 TRSDOS 6.0 
diskette, the Model 4 will use its 80 column video, and the 
other features of Model 4 TRSDOS. Coming soon will be 
Radio Shack's CP/M Plus for the Model 4. 

Below is a chart which describes the operating system 
commands available under the various Model I (TRSDOS 
2.3, 2.7DD and LDOS 5.1.3), Model III (TRSDOS 1.3 and 
LDOS 5.1 .3), and Model 4 (TRSDOS 1 .3 and 6.0) operating 
systems. LDOS 5.1.3 is used with Model I and III. Data files 
on LDOS 5.1.3 can be read directly by TRSDOS 6.0, and 
TRSDOS 6.0 data files are readable by LDOS 5. 1 .3 (if your 
Model I is not equipped with Radio Shack double density, 
you may need to use single density on the Model 4.) 



TRSDOS 2.3 

TRSDOS 2.7DD 
TRSDOS 1.3 
LDOS 5.1.3 
TRSDOS 6.0 
Explanation 



Command 
APPEND 



BASIC 

BASIC2 

BASICR 



X X X X X Copies the contents of the source file onto 
the end of the destination file. TRSDOS 6.0 
includes two optional parameters, ECHO, 
which echoes the characters to the screen 
while appending, and STRIP, which re- 
moves the last byte from the destination file 
before appending. This STRIP feature is 
useful for appending files which contain end 
of file markers like SCRIPSIT 

X X X X X Assigns protection attributes to a particular 
file or group of files on a particular drive 

X X X X X Stores an AUTO command line on the disk. 
This command line automatically executes 
whenever you start up or reset TRSDOS 
Duplicates (backs up) all or some of the files 
from the source disk to the destination disk 
TRSDOS 6.0 and LDOS 51 3 use a parame- 
ter list to tell the system which file or group of 
files to duplicate. 
XX X Disk BASIC. 

Jump to Model I Level II BASIC 
Load and RUN Enhanced Disk BASIC. 



ATTRIB 
AUTO 

BACKUP X X X X X 



BLINK 
BOOT 



BUILD 



CLEAR X X X X 

CLOCK X X X X 
X X 



CLS 
CLICK 
/FLT 
CMDFILE 



COMM 



CONFIG 
CONV 



DATE 



DUAL 



X 



CONVERT X 

COPY X X X X X 



COPY23B X 

/BAS 

CREATE X X X X 



DEBUG X X X X X 
DEVICE X XX 



DIR X X X X X 

DISKDUMP 

/BAS X 

DO X X X X 



DUMP X X X X X 

ERASE X 

ERROR X X 

FILFIX X 

FILTER X X 

FORMAT X X X X X 



FORMS 

/FLT 



X Turn Model I blinking cursor on or off 

X X Resets (boots) the system by returning the 
system to its original start-up condition. The 
use of optional keys can prevent execution 
of AUTO or SYSGEN configurations, as well 
as invoking the system debugger. 

X X X X Lets you enter data (such as commands) 
and save these to disk. BUILD is used pri- 
marily to create files for DO, PATCH and, in 
TRSDOS 6.0, KSM and FLT Optional pa- 
rameters in TRSDOS 6.0 permit BUILD files 
to be extended, or to contain data in HEX 
format. 

Clear user memory. See MEMORY for 
LDOS 5 1 3 and TRSDOS 6.0. 
This command turns the clock screen dis- 
play on or off. 
Clear the screen. 
X A keyboard filter to give the keys a "click" 
sound when they are pressed. 
A general purpose disk-to-disk, tape-to-disk, 
disk-to-tape utility for moving machine lan- 
guage files from one media to another. 
X Lets two computers communicate via a de- 
fined device. COMM is a full featured com- 
munications program similar to LCOMMJq 
LDOS 5.1.3 and TERMINAL on the" 
Model 12. 

Change disk's number of tracks. 
X X Allows you to move (convert) data files from 
a Model III TRSDOS 1.3 diskette to a 
TRSDOS 6 formatted diskette, and to view 
1.3 directories from L.O. 
Convert Model I disk files to Model III 
diskettes. 

Copies information from one disk or device 
to another disk or device. TRSDOS 6.0 gives 
you the ability to change the logical record 
length of the information during the COPY 
process 

Copies Model I TRSDOS 2 3B files to LDOS 
5.1.3 diskettes. 

Creates a file on disk and pre-allocates disk 
space for its contents. 
Resets the date or displays the current sys- 
tem date. 

Turns the debug utility on or off. 
Displays the status of the drives, selected 
options, and data paths for logical devices 
which have been set, routed, or linked. 
Model I TRSDOS 2.3— simply lists all cur- 
rently defined I/O devices. 
Displays the specified disk's directory. 

Examine a disk file 

Compiles and executes a DO file. A DO file, 
in LDOS 5 1.3 and TRSDOS 6.0, is a user 
created Job Control Language (JCL) file that 
contains one or more library commands or 
file specifications. 

Duplicates output to both video and a 
printer. *Use link in LDOS 5.1.3 and 
TRSDOS 6.0. 

Copies an area of memory to a named disk 
file. 

Erase a file from disk by zeroing the disk 
data area 

Display a full error message 
Load and modify the content of a file. 
Filters or modifies data as it is read from or 
written to a device. 

Prepares a blank or old disk for use by defin- 
ing the tracks and sectors, and by writing 
system information onto the disk. 

XXX Sets up printer filter parameters, (PR/FLT in 
LDOS 5 1 3 and FORMS in TRSDOS 1 3.) 



X X X X X 



X X " 
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FREE 



X XX X X 



GETDISK 
/BAS X 

GETTAPE 
/BAS X 

HELP X X 

HERZ50 X 

HITAPE X 



JCL 



JL/DVR 



KI/DVR 



X i-X 



KILL X X X X 

KSM/FLT X 



LBASIC X 

LCOMM X 

LIB X X X X X 



LINK X X 

LIST X X X X X 

LOAD X X X X X 

LOG X X 



LPC X X 

MASTER X X 



MEMDISK 
/DCT 



MEMORY 



X X 



MEMTEST X X 
MINIDOS : X 

/FLT 



MODx/DCT 



X X 



PATCH X X X X 



PAUSE X X 



Lists the amount of free space and the num- 
ber of files on each drive. If a drive number is 
specified, FREE displays a space map of the 
disk in that drive. 

Copies a disk file to tape. 

Copies a tape data file to disk. 
Provides a brief explanation of a command's 
syntax. 

Set up the Model III for 50hz AC power. 
The HITAPE utility is for Model III operations 
only. It permits the use of high speed 
cassette operations with LBASIC and 
CMDFILE. 

Job Control Language is one of the most 
powerful features of TRSDOS 6.0 and LDOS 
5.1.3. It allows the user to construct a se- 
quence of commands and statements to 
control the actions of the operating system 
or applications programs, 
JOBLOG creates a log of all commands en- 
tered or received, along with a time stamp 
for each. JOBLOG is established using the 
JL/DVR driver. 

KI/DVR enables keyboard features like type 
ahead and JKL screen print. 
See REMOVE 

KSM/FLT allows use of files containing 
phrases associated with the unshifted alpha- 
betic keys to be used as direct keyboard 
inputs. 

The disk version of BASIC under LDOS 
5.1.3 

See COMM 

Displays a listing of all available system com- 
mands, TRSDOS 6,0 has three separate li- 
braries of commands. 

Irinks together two logical devices. Both de- 
vices must be enabled in the system. 
Lists the contents of a file. Optional parame- 
ters determine exactly what information will 
be displayed 

Loads a machine language program file into 
memory without executing that file. 
Logs in the directory track and number of 
sides on a diskette. In TRSDOS 6.0 LOG is 
used for hard disk installations. 
Line printer control program. 
Set the master read/write drive. SYSTEM 
performs this function in LDOS 5.1.3 and 
TRSDOS 6.0. 

Allows you to set aside some portion of your 
available RAM memory to function as a disk 
drive. MEMDISK can be used with the extra 
64K RAM in a 1 28K Model 4, or memory can 
be set aside in the normal 64K area. 
Allows you to reserve a portion of memory, 
display the current HIGHS and LOW$, mod- 
ify a memory address, or jump to a specified 
memory location. 

Memory test routine for ROM and RAM. 
The MiniDOS filter program provides a 
means to access certain LDOS functions 
without having to be at the LDOS Ready 
prompt. 

The MOD1 and MOD3/DCT programs are 
used to change the logical drive numbers of 
5" floppy drives. FLOPPY/DCT in TRSDOS 
6.0, 

Lets you make minor corrections in any disk 
file either by typing the information in, or by 
using an existing ASCII file. 

Pause execution for operator action. Used 
primarily in DO files. TRSDOS 6.0 and LDOS 
5.1.3 provide this facility through JCL. 



PR/FLT 

PRINT 
PROT 

PURGE 
RDUBL 

RELO 
REMOVE 



X 

X X X 



XXX X 
X 

X X 



RENAME X X X X X 
REPAIR X X 



RESET 



ROUTE 

RS232x 
/DVR 



RUN 



X X 

X X 

X X 

X X 



SET 


X X 


SETCOM 


XX X 


SETKI 


X 


SPOOL 


XXX 



SYSGEN 
SYSTEM 

TAPE 
TAPE100 



X 
X X 



X X 



TAPEDISK 


X 


TEST1 


X 


TEST2/ 


X 


BAS 




TIME 


X X X X X 


TRACE 


XX XX 



ULC X 

UNKILL X 



USER 
VERIFY 



WP 



XFERSYS 



X 
X X 



X X 



X X X X 



PR/FLT is provided to format the data sent to 
the line printer. 
List a text file to the printer. 
Use or change a diskette's master 
password. 

Allows you to quickly delete files from a disk. 
A Disk driver program for use with Model I 
and the Radio Shack double density board. 
Change where a program loads in memory. 
Deletes a specified file or files from the disk 
directory, and frees the disk space for other 
uses. REMOVE can also be used to remove 
user created devices from the sys- 
tem. Called KILL in previous versions of 
TRSDOS. 

Changes the name of a file or device. 
Updates and modifies information on Model 
I TRSDOS diskettes to make them readable 
under TRSDOS 6.0. Use CONV for Model III 
TRSDOS diskettes. 

Returns a device to its original start-up 
condition. Closes open files if given a file 
specification. 

Routes one device to another device, disk 
file, or to nothing (NIL.) 
This driver will configure the Model I RS-232 
interface (RS232R) or the Model III RS-232 
interface (RS232T). COMM/DVR in 
TRSDOS 6.0. 

Loads and executes a machine language 
file. The keyword RUN is optional. 
Sets a driver or filter program to a device. 
Adjusts the parameter values of the RS-232 
port. 

Sets keyboard repeat rate and delay 
parameters. 

Establishes a first-in, first-out (FIFO) buffer 
for a specified device (usually a line printer.) 
With TRSDOS 6,0 SPOOL can utilize one of 
the two extra 32K memory banks. 
Creates a configuration file to store informa- 
tion about how your system is setup. 
Configures certain areas of your TRSDOS 
system to meet your particular needs. You 
can set or change the disk drive configura- 
tions, and turn on or off various keyboard, 
video and hardware drivers. 
Used for tape to disk transfer of machine 
language programs. 

Lets TRSDOS 6.0 read a Model 1 00 cassette 
tape file and write it to Model 4's disk, as an 
ASCII file or to read a disk file and write it as a 
Model 100 tape file. 

Copy a machine language tape to disk. 
Test ROM and RAM memory. 
Stress test for entire Model I system. 

Lets you reset or display the current time. 
Displays the user's program counter ad- 
dress on the display. SYSTEM (TRACE) in 
TRSDOS 6.0. 

Upper/lower case drive for Model Is with the 
Radio Shack lower case kit. 
Recover a KILLed (but not ERASEd) disk 
file. 

Define a user library command. 
Turns the verify function on or off. When 
verify is on, TRSDOS reads the data it writes 
to disk to verify that the data is readable. 
Software write-protect a diskette. Use 
SYSTEM under TRSDOS 6.0 and 
LDOS 5.1.3. 

Transfer system files in an operating system 
upgrade. 
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Maillist 



Tom Kilbride 
4117 Lyle 
Waco, TX 76710 



The most useful program you've ever published (to me, 
anyway) was the machine language sort in the July 1980 
issue. 

Having suffered through sorts of 80-100 items that take 
7-8 minutes in BASIC, the program was a marvel. 

I am submitting a mailing list program that uses the sort. It 
is written for a 48K Model I or III with disks. I have put name, 
address, city, state, and ZIP code into a 71 -character long 
string. To allow for both alphabetical and ZIP code sorts, 
there is a subroutine that moves the ZIP code from the right 
hand side to the left, the sort is performed, and the ZIP is 
restored to the right hand side of the string. 

An alpha sort of 123 names was done in less than a 
second. The same items sorted by ZIP took about 23 sec- 
onds with the manipulation in BASIC. Still infinitely faster than 
a full sort in BASIC. 

After loading and running the program, the title appears 
on the screen while the sorting program is poked into mem- 
ory. Then a filename is requested. Pressing (enter) de- 
faults to a request for the number of items to be sorted. If the 
number is unknown, but around 100-120, 150 could be 
entered. 

After inputting the last record, entering "END" when 
asked for another "Last Name?" will move you to the sorting 
process. The program asks whether you want to use the 
"Printer?" and whether you want a "ZIP Code Sort?" Then 
the sort begins. 

At the end, you are asked whether you want to repeat the 
process, save the list to disk, make a correction, add a 
record, delete a record, or quit the program. 

During the sort, the computer locks up at times. This is 
normal as it does a little house cleaning in the reserved string 
space in memory. 

I estimate that you could put as many as 450 files in the 
program although I have not tried anything larger than 125. It 
probably would work best with lists of 250 or less. 

After editing the program and putting in all the neat lower 
case lettering, I found that the sorting program and the lower- 
case driver have a memory conflict and the program locks up 
on a Model I. Since lowercase isn't essential to printing 
mailing labels, I'm not concerned so I'll leave it to someone 
else to relocate one or the other. 

I have used the sorting program to alphabetize lists of 
names and titles of cassettes, books, etc. but I thought your 
readers could use this program for short mailing lists. 

I offer it for publication, no strings attached. I make no 
claim of copyright and freely, and in the spirit of an enthusias- 
tic TRS-80 owner hope that numerous others will be able to 
find application for this program or a variation of it. 

For the benefit of those who were not around, let me 
suggest that anyone who does not have the July '80 issue 
rush to their nearest Radio Shack store and get the reprint of 
all issues (26-2115) prior to 1981. At $4.50, it's a bargain. 

My TRS-80 came into this world as a 4K Level I @ $599 
(before the price came down). I now have two drives, 48K, 
lower case mod., and a modem. I've also purchased a 



Model III that I use at the office and have a pocket computer. 

Later this year, I'm going to get a Color TRS-80 "for my kids." 

Enjoy every issue so keep the good stuff coming. 

10 POKE 16562, 254 

: POKE 16561, 253 



20 CLS 



30 CLS 



N 



PRINT CHR$(23) 

PRINT @400, "MAILING LIST" 

CLEAR 30000 

DEFUSR0=&HFF00 

DEFINTA-Z 

DIMA$(450), X(2) 

Z=0 

L$="XXXX/DAT" 

GOSUB 370 

GOTO 540 

INPUT"Number on list? type <END> when done. 

'MAX 450" 



IF N>450 PRINT 
FOR TI=0 TO 450 
NEXT TI 
GOTO 30 
40 FOR 1=0 TO N-l 

: GOSUB 1190 

: NEXT I 
50 PRINT "Printer?" 

: GOSUB 1310 
60 IF I$="Y" THEN P=l ELSE P=0 
70 PRINT "ZIP Code Sort?" 

: GOSUB 1310 
80 CLS 

: IF I$="Y" THEN GOSUB 1250 

: FL=99 ELSE FL=0 
90 X(0)=N 

100 X(1)=VARPTR(A$(0)) 
110 Z=USR0(VARPTR(X(0))) 
120 IF FL=99 THEN GOSUB 1260 
130 FOR 1=0 TO N-l 
140 PRINT USING" (###)"; 1+1 

: GOSUB 1200 
150 NEXT I 
160 PRINT "<R>epeat <S>ave <C>orrect <A>dd <D>elete 

<Q>uit" 

: GOSUB 1310 
170 IF I$="Q" PRINT "Type 'GOTO 1< 

program" 

: END 
180 IF I$="S" THEN 450 
190 IF I$="C" THEN 930 
200 IF I$="A" THEN 640 
210 IF I$="D" THEN 1270 
220 IF I$="R"CLS 

: GOTO 50 
230 GOTO 160 
240 DATA 205, 127, 10, 94, 35 

35, 94, 35, 86, 237, 83 
250 DATA 213, 255, 33, 0, 0, 

211, 255 
260 DATA 203, 

122, 179 
27 DATA 255, 

205, 255, 42, 205 
280 DATA 203, 255, 42, 



to return to 



86. 



237, 83, 19, 255, 
34, 211, 255, 237, 91, 
251, 237, 83, 211, 255, 



203, 59, 175 
58, 48, 2, 203 

200, 42, 19 
237, 82, 34, 207, 255, 33, 0, 0, 34, 



25, 34, 209, 255, 235, 
, 25, 
, 25, 
255, 



255, 34 
203, 255, 
33 



290 DATA 0, 0, 25 

33, 0, 0, 25 
300 DATA 75, 213, 

0, 126, 71, 26, 184, 48 
310 DATA 3, 14, 1, 71, 175, 176 

78, 35, 70, 197, 225 
320 DATA 235, 78, 35, 70, 197, 225 

10, 32, 39, 19, 35, 16 
330 DATA 246, 203, 65, 32, 31, 209 

235, 126, 113, 235, 119 



237, 91, 211, 255, 
237, 91, 203, 255, 



25, 229, 

25, 237 

9, 235, 225, 9, 229, 213, 14, 



40, 25, 197, 19, 35, 
193, 26, 150, 56, 
225, 6, 3, 78, 
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.340 DATA 35, 19, 16, 246/42, 211, 25 5, 235, 42, 203, 

255, 175, 237, 82, 34 
350 DATA 203, 255, 48, 144, 24, 2, 209, 225, 42, 205, 

255, 17, 1, 0, 175, 25 
360 DATA 34, 205, 255, 237, 91, 207, 255, 237, 82, 

218, 58, 255, 195, 24, 255 
37 N=0 

380 FOR 1=1 TO 203 
390 READ A 
400 N=N+A 
410 POKE 1-257 , A 
420 NEXT 
430 IF N025337 THEN PRINT "CRASH! ! !" 

: END 
440 RETURN 

450 PRINT "Use "; LEFT$(L$, LEN(L$)-4); "?" 
GOSUB 1310 

IF I$="Y" THEN 470 ELSE INPUT "FILENAME"; L$ 
IF LEN(L$)>8 GOTO 450 
460 L$=L$+"/DAT" 
470 OPEN "0", 1, L$ 
480 PRINT #1 , N 
490 FOR 1=0 TO N-l 
500 PRINT #1, A$(I) 
510 NEXT I 
520 CLOSE 
530 GOTO 160 
540 CLS 

INPUT "Filename"; L$ 
IF LEN(L$)>8 THEN L$="XXXX/DAT" 
GOTO 540 

550 IF L$="XXXX/DAT" THEN 30 ELSE L$=L$+"/DAT" 
560 OPEN "I", 1, L$ 
570 INPUT #1 , N 
580 FOR 1=0 TO N-l 
590 INPUT #1, A$(I) 
600 NEXT I 
610 CLOSE 
620 PRINT "Add Data?" 

: GOSUB 1310 
630 IF I$="N" THEN 50 
640 CLS 

: PRINT "This is Item -" ; N+l 
650 GOSUB 660 

GOSUB 710 
GOSUB 750 
GOSUB 790 
GOSUB 830 
GOSUB 860 
GOTO 900 
660 INPUT "Last Name >" ; 1$ 

: N$=l$ 

: 1$="" 
670 IF LEN(N$)>15 PRINT "15 MAX" 

: GOTO 660 
680 IF N$="END" OR N$="end" THEN 50 
690 N$=N$+STRING$(15-LEN(N$), 32) 
700 RETURN 
710 INPUT "First Name >" ; 1$ 

: F$=I$ 

: 1$="" 
720 IF LEN(F$)>10 PRINT "10 MAX" 

: GOTO 710 
730 F$=F$+STRING$(10-LEN(F$), 32) 
740 RETURN 
750 INPUT "Street Address >"; 1$ 

: A$=I$ 

: 1$="" 
760 IF LEN(AS)>20 PRINT "20 MAX" 

: GOTO 750 
770 A$=A$+STRINGS(20-LEN(A$), 32) 
780 RETURN 
790 INPUT "City >" ; 1$ 

: C$=I$ 

: 1$="" 
800 IF LEN(C$)>15 PRINT "15 MAX" 

: GOTO 790 



810 C$=C$+STRING$(15-LEN(C$), 32) 

820 RETURN 

»30 INPUT "State >" ; 1$ 

: SS=I$ 

: 1$="" 
840 IF LEN(S$)<>2 PRINT "2 ONLY" 

: GOTO 830 
850 RETURN 
860 INPUT "ZIP >"; 1$ 

: Z$=I$ 

: 1$="" 
870 IF LEN(ZS)>9 PRINT "9 MAX" 

: GOTO 860 
880 Z$=Z$+STRING$(9-LEN(Z$), 32) 
890 RETURN 

900 AS(N)=N$+FS+A$+C$+S$+Z$ 
910 N=N+1 
920 CLS 

: GOTO 640 
9 30 CLS 

: INPUT "No. to Correct"; NN 
940 IF NN<1 OR NN>N THEN 930 
950 CLS 

PRINT @128, "Item #" ; NN 

PRINT 

IF LEN(A$(NN-1))<71 THEN FOR X=l TO 

71~LEN(A$(NN-1)) 

: AS(NN-1)=A$(NN-1)+" " 

: NEXT X ELSE A$(NN-1 )=LEFT$(A$(NN-1 ) , 71) 
960 X$=A$(NN-1) 

: PRINT "1 - Last Name >" ; LEFT$(X$, 15) 
970 PRINT "2 - First Name >" ; MID$(X$, 16, 10) 

: PRINT "3 - Address >"; MID$(X$, 26, 20) 
980 PRINT "4 - City >"; MID$(X$, 46, 15) 

PRINT "5 - State >" ; MID$(X$, 61, 2) 
PRINT "6 - ZIP Code >" ; RIGHT$(X$, 9) 
PRINT "7 - No Change" 
990 PRINT 

: PRINT "Change What Item?" 
1000 GOSUB 1310 
B=VAL(I$) 
IS="" 

IF B=0 THEN 1000 
1010 ON B GOTO 1020 ,1040 ,1060 ,1080 ,1100 , 1 1 30 : 

1160 ,1160 ,1160 ,1160 
1020 GOSUB 660 
1030 X$=N?+RIGHT$(X$, 56) 

: GOTO 1150 
1040 GOSUB 710 
1050 X$=LEFT$(X$, 15)+F$+RIGHT$(XS, 46) 

: GOTO 1150 
1060 GOSUB 750 
1070 X$=LEFT$(X$, 25)+A$+RIGHT$(XS, 26) 

: GOTO 1150 
1080 GOSUB 790 
1090 X$=LEFT$(X$, 45)+C$+RIGHT$(X$, 11) 

: GOTO 1150 
1100 GOSUB 830 

1110 X$=LEFT$(X$, 60)+S$+RIGHT$(X$, 9) 

1120 GOTO 1150 

1130 GOSUB 860 

1140 XS=LEFT$(X$, 62)+Z$ 

1150 A$(NN-1)=X$ 

: GOTO 950 
1160 A$(NN-1)=X$ 
: X$="" 
: GOTO 160 
1170 CLS 
1180 GOTO 160 
1190 CLS 

PRINT "Item #" ; 1+1 

GOSUB 660 

GOSUB 710 

GOSUB 750 

GOSUB 790 

GOSUB 830 

GOSUB 860 



TRS-80 Microcomputer News, May 1983 



25 





AS(I)=N$+F$+A$+C$+S$+Z$ 


: RETURN 


1200 N$=LEFT$(A$(I), 15) 




F$=MID$(A$(I), 16, 10) 




A$=MID$(A$(I), 26, 20) 




C$=MID$(A$(I), 46, 15) 




S$=MID$(A$(I), 61, 2) 




ZS=RIGHT$(A$(I), 9) 




IF RIGHT$(Z$, 4)<>" "Z$=LEFT$(Z$, 


5)+"-"+RIGHT$(Z$, 4) 


1210 PRINT N$+" "+F$ 


: PRINT A$ 


: PRINT C$+" "+S$+" "+Z$ 


1220 IF P<>] THEN RETURN 


1230 FOR X=l TO 10 


: IF MID$(F$, X, 2)<> M " THEN NEXT X ELSE 


F$=LEFT$(F$, X) 


1240 LPRINT F$+N$ 




LPRINT A$ 




LPRINT C$+" "+S$+""+2$ 




LPRINT 




LPRINT 




LPRINT 




RETURN 


1250 FOR 1=0 TO N-l 


: A$(I)=RIGHT$(A$(I), 9 )+LEFT$( A$( I) , 


LEN(A$(I))-9) 


: NEXT I 


: RETURN 


1260 FOR 1=0 TO N-l 


: A$(I)=RIGHT$(A$(I), LEN(A$( I) )-9 )+ 


LEFTS(A$(I), 9) 


: NEXT I 


: RETURN 


1270 CLS 


: INPUT "Delete No."; NN 


: IF NN<1 OR NN>N-1 THEN 1270 


1280 PRINT LEFT$(A$(NN-1), 25) 


: PRINT RIGHT$(A$(NN-1), 46) 


: PRINT "Delete This?" 


1290 GOSUB 1310 


: IF I$="Y" THEN 1300 ELSE IF I$="N" THEN 160 


ELSE 1290 


1300 FOR I=NN-1 TO N-l 




A$(I)=A$(I+1) 




: NEXT I 




• N=N-1 




: GOTO 160 


1310 I$=INKEY$ 


: IF 1$="" THEN 1310 


1320 IF ASC(I$)>96 AND ASC(I$)<123 THEN I$= 


CHR$(ASC(I$)-32) 


1330 


RETURN 



Here is the BASIC program and the first page of the 
assembly listing which shows the dimension principle 
involved. 

I have in the past year written an entire library of routines 
like this. 

Program 1 . Assembly Language 



James Evans 
38 Belaire Drive 
Stamford, CT 06905 



I have written a program for the Model III that you might 
be interested in, fast double precision multiply. By use of the 
alternate registers and some explicit straight line coding, I 
was able to reduce the execution time from some 21 ms, ( + 6 
ms BASIC overhead time when used in a FOR loop) to 6 ms 
(+ the same BASIC overhead, unfortunately) the method of 
diversion and testing at RST20 allows this program to be 
used by existing BASIC programs without change (except 
memory must be protected above 64,000— where this pro- 
gram resides). 



FA00 




00100 


ORG 


0FA00H 


FA00 


F3 


00110 DPSW 




DI 


FA01 


08 


00120 


EX 


AF,AF' 


FA02 


AF 


00130 


XOR 


A 


FA03 


3E00 


00140 


LD 


A,0 


FA05 


320A40 


00150 


LD 


(400AH),A 


FA08 


3EFA 


00160 


LD 


A,0FAH 


FA0A 


320B40 


00170 


LD 


(400BH),A 


FA0D 


D9 


00180 


EXX 




FA0E 


CI 


00190 


POP 


BC 


FA0F 


01 


00200 


POP 


DE 


FA10 


21DC0A 


00210 


LD 


HL,0ADCH 


FA 13 


ED42 


00220 


SBC 


HL,BC 


FA15 


C23AFA 


00230 


JP 


NZ, RESTOR 


FA18 


214E24 


00240 


LD 


HL,244EH 


FA IB 


ED52 


00250 


SBC 


HL,DE 


FA ID 


C23AFA 


00260 


JP 


NZ, RESTOR 


FA 20 


3AB040 


00270 


LD 


A, (40B0H) 


FA23 


FE02 


00280 


CP 


2 


FA25 


C23AFA 


00290 


JP 


NZ, RESTOR 


FA28 


08 


00300 


EX 


AF,AF' 


FA 29 


D9 


00310 


EXX 




FA2A 


CDD925 


00320 


CALL 


25D9H 


FA2D 


CDDC0A 


00330 


CALL 


0ADCH 


FA30 


CD42FA 


00340 


CALL 


MDP 


FA33 


CD8AFD 


00350 


CALL 


RE NOR 


FA 36 


FB 


00360 


EI 




FA 37 


C9 


00370 


RET 




FA 38 


C9 


00380 


RET 




FA 39 


C9 


00390 


RET 




FA 3 A 


05 


00400 RESTOR 


PUSH 


DE 


FA3B 


C5 


00410 


PUSH 


BC 


FA3C 


08 


00420 


EX 


AF,AF' 


FA3D 


D9 


00430 


EXX 




FA3E 


C3D925 


00440 FIN 


JP 


25D9H 


FA41 


00 


00450 MULTDP 


NOP 




0040 




00460 S 


EQU 


40H 


FR42 


F3 


00470 MDP 


DI 




FA43 


211D41 


00480 


LD 


HL.411DH 


FA46 


010600 


00490 


LD 


BC,6H 


FE40 




00500 START 


EQU 


0FE40H 


FA49 


1140FE 


00510 


LD 


DE, START 


FA4C 


EDB0 


00520 


LDIR 




FA4E 


7E 


00530 


LD 


A, (HL) 


FA4F 


F680 


00540 


OR 


S0H 


FA51 


12 


00550 


LD 


(DE),A 


FA 5 2 


1C 


00560 


INC 


E 


FA5 3 


3E00 


00570 


LD 


A,0 


FA 5 5 


12 


00580 


LD 


(DE),A 


FA56 


00 


00590 


NOP 




FA57 


212741 


00600 


LD 


HL,4127H 


FA5A 


010600 


00610 


LD 


BC.6H 


FA5D 


1138FE 


00620 


LD 


DE, START-* 


FA60 


EDB0 


00630 


LDIR 




FA62 


7E 


00640 


LD 


A, (HL) 


FA 63 


F680 


00650 


OR 


80H 


FA65 


12 


00660 


LD 


(DE),A 


FA66 


1C 


00670 


INC 


E 


FA67 


3E00 


00680 


LD 


A,0 


FA69 


12 


00690 


LD 


(DE),A 


FA6A 


2140FE 


00700 


LD 


HL, START 



Program 2. BASIC Program 



100 'REQUIRES PROTECTED MEMORY FOR FA00 
110 'SWITCH DETECTS THE PRESENCE OF DOUBLE PRECISION 
ARITHMETIC 
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i20 'COMMAND BY THE NUMBER TYPE TEST IN RESET 

20, WHICH IS 
130 'MADE JUST BEFORE THE ACTUAL OPERATION 

DETERMINATION. SINCE 
140 'MANY ROM ROUTINES SO TEST, THE UNIQUE 

DETERMINATION AS 
150 'TO WHERE IT CAME FROM IS MADE BY TESTING THE 

LAST TWO 
160 'ENTRIES ON THE STACK. THE DRIVER CODE FOR THE 

ARITHMETIC 
170 'OPERATIONS IS MADE AT CODE STARTING AT 2406 

XMATH/SRC 
180 'THE TYPE OF ARITHMETIC IS AT 40B0 

: MULTIPLY IS 2, 
190 'TESTING FOR 2 MEANS ONLY MULT IS DIVERTED 
205 CMD"L","DPSW/CMD" 
210 DEFUSR0=&HFA00 
220 DEFDBLA-K 
230 X=USR(0) 
240 A=1/7D0 

: B=1/3D0 
250 C=A*B 

: PRINT C 
255 STOP 
260 D£FUSR0=&HFE14 

: X=USR(0) 

: 'RESTORES RST 20, ELSE REBOOT JH 



Al| 



Michael G. Lofy 
2622 Moraine Court 
Racine, Wl 53402 



I have developed a program for the Model III that utilizes 
some of the methods that are described in your publication, 
BASIC FASTER AND BETTER. 

It is an entertaining program for children using high 
speed graphics. 

5 ' CLEAR1000 

20 ' * Alphabet Primer * 

30 '* Michael G Lofy * 

40 '* May 15, 1982 * 

50 • ******************** 

60 ' ** This program responds to the push of a letter 

by drawing 
70 '** a picture in high speed graphics It responds 

to a 
80 ' " * number by duplicating the picture that many 

t i me s . 

90 ' ** Zero is ten. This program uses techniques 

from BASIC 

91 '** FASTER AND BETTER by Lewis Rosenfelder. Copy 

the 

92 ' ** program EXACTLY. Comments and spaces may be 

deleted 

93 *** to speed execution. DO NOT USE ANY OTHER 

VARIABLES 

94 '** UNLESS THEY ARE DEFINED PRIOR TO LINE 110. 
100 X%=0 

X1%=0 
Z%=0 
MT%=0 
MF%=0 
J%=0 
XN%=0 
XH%=0 
IN$="" 
X2%=0 
109 '** Store USR subroutine in "MAGIC ARRAY" 



110 DIM US%(7) 
120 US%(0)=8448 

US%(2)=4352 

US%(4)=256 

US%(7)=201 

US%(6)=-20243 

129 '** Dimension integer array to store coded 

pic tures 

130 DIM A%(1092) 

140 DEFUSR0=VARPTR(US%(0)) 

148 '** Set space compression software switch off to 

print 

149 '** special characters on MODEL III 

150 PRINT CHR$(21) 

: CLS 
160 PRINT "PLEASE WAIT" 
i68 ' ** Read DATA into array. This array stores all 

the pictures 
159 '*-* l n co ded format for later relocation to 

sc reen . 
170 FOR X%=1 TO 1092 
180 READ A%(X%) 
220 NEXT K% 

: CLS 

228 '** Pressing a letter key will draw a picture. 

All other 

229 ' ** keys are locked out. 

230 PRINT @ 960, "PRESS A LETTER OF THE ALPHABET"; 
240 INS="" 

: INS=INKEYS 

: IF IN$="" THEN 240 
250 IF ASC(IN$)<65 OR ASC(IN$)>90 THEN 240 
260 MF%=((ASC(IN$)-65)*42)+l 

267 '** USR subroutine relocates information. Based 

on the 

268 '** number pressed, the coded information is 

transferred 

269 '** from the array and POKED into screen memory. 

270 CLS 

280 Ml%=15 360-64 

290 FOR X% = MF% TO MF%h-41 STEP 6 

300 MT%=MT%+64 

310 US%(5)=12 

320 US7o(l) = VARPTR(A%(X%)) 

330 US%(3)=MT% 

340 J%=USR0(0) 

350 NEXT X% 

356 '** Pressing a number key will duplicate the 

picture 

357 '** that many times. Zero equals ten. 
360 PRINT @ 960, "PRESS A NUMBER"; 

370 IN$=INKEY$ 

: IF IN$="" THEN 370 
380 IF ASC(IN$)<48 OR ASC(IN$)>57 THEN 370 
390 XN%=VAL(IN$) 
400 IF XN%=0 THEN XN%=10 
410 XH%=(XN%/2)-l 
420 IF XN%=1 THEN 230 
430 IF XN%=2 THEN GOSUB 50130 

: GOTO 230 
440 IF XN%=3 THEN GOSUB 50130 
XH%=1 

GOSUB 50190 
GOTO 230 
450 GOSUB 50010 
460 GOSUB 50130 
470 IF XN% AND NOT- 2 THEN XH%=XH%+1 

: GOSUB 50190 
480 GOTO 230 

50000 '*** Subroutine to duplicate to the side. 
50010 FOR X%=1 TO XH% 
50020 MT%=15296+(X%*13) 
50030 FOR X1%=0 TO 6 
50040 MT%=MT%+64 
50050 US%(1)=15360+(X1%*64) 
50060 US%(3)=MT% 
50070 US%(5)=12 
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5(3080 J%=USR0(0) 

50090 NEXT XI % 

50100 NEXT X% 

50110 RETURN 

50120 '*** This subroutine duplicates the top half to 

the bottom 
50130 US%(1)=15360 
50140 US%(3)=15872 
50150 US%(5)=512 
50160 J%=USR0(0) 
50170 RETURN 

50180 '*** This subroutine takes care of odd numbers 
50190 MT%=15296+(XH%*13) 
50200 FOR X%=0 TO 6 
50210 MT%=MT%+64 
50220 US%(1)=15360+(X%*64) 
50230 US%(3)=MT% 
50240 US%(5)=12 
50250 J%=USR0(0) 
50260 NEXT X% 
50270 RETURN 

59980 '** The data below loads the integer array with 
coded 

59981 '** information describing the pictures. By 
PEEKing 

59982 '** VARPTR(A%(x)) and VARPTR(A%(x)+l ) , you will 
see 

59983 '** the CHR$ codes that are POKEd to the screen 
with 

59984 '** USR subroutine. 

59999 '** ARROW 

60000 DATA 8224, 8224, -18400, -28483, 8224, 8224 
60010 DATA 8224, -24544, -16450, -16449, 8372, 8224 
60020 DATA 8224, -31968, -21629, -31809, -32381, 

8224 
60030 DATA 8224, 8224, -21984, 8383, 8224, 8224 
60040 DATA 8224, 8224, -21984, 8383, 8224, 8224 
60050 DATA 8224, 8224, -21984, 8383, 8224, 8224 
60060 DATA 21057, 20306, 8279, 8224, 8224, 8224 

60069 '** BLOCK 

60070 DATA 8224, -29536, -29556, -29556, -21364, 
8340 

60080 DATA -26592, 8321, 8224, 8224, -32360, 8341 
60090 DATA -29538, -29556, -29556, -26996, 8224, 8341 

60100 DATA 8341, 8224, 8224, -27360, -31072, 8224 
60110 DATA -20299, -20304, -20304, -25168, 8321, 8224 

60120 DATA 8224, 8224, 8224, 8224, 8224, 8224 
60130 DATA 19522, 17231, 8267, 8224, 8224, 8224 

60139 '** CARD 

60140 DATA -31809, -31869, -31869, -31869, -31869, 
-16509 

60150 DATA 16831, 8386, 8224, 8336, 8224, -16608 
60160 DATA 8383, 8224, -16736, -19265, 8224, -16608 
60170 DATA 8383, 8224, -20606, -30785, 8224, -16608 
60180 DATA 8383, 8224, 8224, 8321, 16672, -16446 
60190 DATA -20289, -20304, -20304, -20304, -20304, 

-16464 
60200 DATA 16707, 17490, 8224, 8224, 8224, 8224 

60209 '** DIAMOND 

60210 DATA 8224, 8224, -16736, -28483, 8224, 8224 
60220 DATA 8224, -18400, -16449, -16449, 8372, 8224 
60230 DATA -24544, -16450, -16449, -16449, -16961, 

8336 
60240 DATA -32224, -16465, -16449, -16449, -24641, 

8321 
60250 DATA 8224, -29920, -16449, -16449, 8327, 8224 
60260 DATA 8224, 8224, -20606, -32353, 8224, 8224 
60270 DATA 18756, 19777, 20047, 8260, 8224, 8224 

60279 '** ENVELOPE 

60280 DATA 8224, 8224, 8224, 8224, 8224, 8224 
60290 DATA -20304, -20304, -20304, -20304, -20304, 

-20304 
60300 DATA 18069, 20306, 8269, 8224, -27360, -21763 
60310 DATA 8341, 8224, 20308, 8224, -31968, -21629 
60320 DATA -31869, -31869, -31869, -31869, -31869, 



-31869 
60330 DATA 8224, 8224, 8224, 8224, 8224, 8224 
60340 DATA 20037, 17750, 20300, 17744, 8224, 8224 

60349 '** FISH 

60350 DATA 8224, 8224, -17248, -17220, 8372, 8224 
60360 DATA 8224, -18400, -16449, -25665, -16961, 

8336 
60370 DATA -20291, -16450, -16449, -24641, -17222, 

-19265 
60380 DATA -3184.1, -16465, -16449, -16705, -16449, 

-30785 
60390 DATA 8224, -29920, -16449, -16449, -24641, 

8321 
60400 DATA 8224, 8224, -28798, -28785, 8327, 8224 
60410 DATA 18758, 18515, 8224, 8224, 8224, 8224 

60419 '** GUN 

60420 DATA 8224, 8224, 8224, 8224, 8224, 8224 
60430 DATA 8224, 8224, 8224, 8224, 8224, 8224 
60440 DATA -16449, -16449, -16449, -16449, -16449, 

-29505 
60450 DATA -16449, -30273, -24432, 8325, 8224, 8224 
60460 DATA -16449, -31809, -32381, 8224, 8224, 8224 
60470 DATA 8224, 8224, 8224, 8224, 8224, 8224 
60480 DATA 21831, 8270, 8224, 8224, 8224, 8224 

60489 '** HAT 

60490 DATA 8224, 8224, 8224, 8224, 8224, 8224 
60500 DATA 8224, -16449, -16449, -16449, -16449, 

8224 
60510 DATA 8224, -16449, -16449, -16449, -16449, 

8224 
60520 DATA 8224, -16449, -16449, -16449, -16449, 

8224 
60530 DATA 8224, -16449, -16449, -16449, -16449, 

8224 
60540 DATA -20320, -16449, -16449, -16449, -16449, 

-28496 
60550 DATA 16712, 8276, 8224, 8224, 8224, 8224 

60559 '** ICE CREAM 

60560 DATA -18400, -16450, -16449, -16449, -16961, 
8372 

60570 DATA -29920, -16449, -16449, -16449, -16449, 

8327 
60580 DATA 8224, -23264, 8224, 8224, 8346, 8224 
60590 DATA 8224, -32224, 8340, -22496, 8321, 8224 
60600 DATA 8224, 8224, -28534, -31328, 8224, 8224 
60610 DATA 8224, 8224, -22240, 8342, 8224, 8224 
60620 DATA 17225, 8261, 21059, 16709, 8269, 8224 

60629 '** JET 

60630 DATA 8224, 8224, -16864, 8381, 8224, 8224 
60640 DATA 8224, 8224, -16456, -19265, 8224, 8224 
60650 DATA 8224, -16736, -16481, -20545, -28483, 

8224 
60660 DATA -18400, -30785, -16608, 8383, -16501, 8372 
60670 DATA -31968, 8321, -16608, 8383, -32224, 8323 
60680 DATA 8224, -24544, -16482, -21057, 8336, 8224 
60690 DATA 17738, 8276, 8224, 8224, 8224, 8224 

60699 '** KEY 

60700 DATA 8224, 8224, -22496, -17220, -31556, 8224 
60710 DATA 8224, 8224, -21984, 8341, -32381, 8224 
60720 DATA 8224, 8224, -21984, 8341, 8224, 8224 
60730 DATA 8224, 8224, -17888, 8373, 8224, 8224 
60740 DATA 8224, -24544, -32354, -21118, 8336, 8224 
60750 DATA 8224, 8224, -19317, -30792, 8224, 8224 
60760 DATA 17739, 8281, 8224, 8224, 8224, 8224 

60769 '** LETTER 

60770 DATA -29540, -29556, -29556, -29556, -29556, 
-21364 

60780 DATA 17557, 16709, 11346, 8224, 8224, -21984 
60790 DATA 8341, 17736, 19532, 8271, 8224, -21984 
60800 DATA 8341, 8224, 8224, 8224, 8224, -21984 
60810 DATA 8341, 8224, 8224, 20300, 17750, -21972 
60820 DATA -29555, -29556, -29556, -29556, -29556, 

-29044 
60830 DATA 17740, 21588, 21061, 8224, 8224, 8224 

60839 '** MONEY 

60840 DATA -29540, -29556, -29556, -29556, -29556, 
8364 
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6^850 DATA 8341, 9248, 11825, 12336, 8224, 8362 
60860 DATA -29555, -29556, -29556, -29556, -29556, 

8334 
60870 DATA -25568, -29556, -29556, -29556, -29556, 

-21364 
60880 DATA -27360, 8224, 13604, 12334, 8240, -21984 
60890 DATA -29408, -29556, -29556, -29556, -29556, 

-29044 
60900 DATA 20301, 17742, 8281, 8224, 8224, 8224 

60909 '** NOTE 

60910 DATA 8224, 8224, -22496, 8336, 8224, 8224 
60920 DATA 8224, 8224, -21984, -19317, 8224, 8224 
60930 DATA 8224, 8224, -21984, -32224, 8224, 8224 
60940 DATA 8224, 8224, -21984, 8224, 8224, 8224 
60950 DATA -18400, -16449, -16705, 8224, 8224, 8224 
60960 DATA -32224, -28785, -32369, 8224, 8224, 8224 
60970 DATA 20302, 17748, 8224, 8224, 8224, 8224 

60979 '** OSTRICH 

60980 DATA -24544, -21328, -28484, 8224, 8224, 8224 
60990 DATA 8224, -31968, 8343, 8224, 8224, 8224 
61000 DATA 8224, 8224, -20331, -17220, -19268, 8224 
61010 DATA 8224, -18400, -16449, -16449, -16449, 

-27457 
61020 DATA 8224, -32224, -28789, -20577, -28785, 

8327 
61030 DATA 8224, 8224, -26592, -32127, 8356, 8224 
61040 DATA 21327, 21076, 17225, 8264, 8224, 8224 

61049 '** PILLAR 

61050 DATA -31968, -16497, -16449, -16449, -28737, 
8323 

61060 DATA 8224, 8224, -16449, -16449, 8224, 8224 
61070 DATA 8224, 8224, -16449, -16449, 8224, 8224 
61080 DATA 8224, 8224, -16449, -16449, 8224, 8224 
61090 DATA 8224, 8224, -16449, -16449, 8224, 8224 
61100 DATA -17376, -16450, -16449, -16449, -16961, 

8380 
61110 DATA 18768, 19532, 21057, 8224, 8224, 8224 

61119 '** QUESTION 

61120 DATA 8224, -24544, -28772, -29297, 8372, 8224 
61130 DATA 8224, -18552, 8224, 8224, -31302, 8224 
61140 DATA 8224, 8224, -22496, -29028, 8321, 8224 
61150 DATA 8224, 8224, -21984, 8341, 8224, 8224 
61160 DATA 8224, 8224, -21984, 8341, 8224, 8224 
61170 DATA 8224, 8224, -30688, 8324, 8224, 8224 
61180 DATA 21841, 21317, 18772, 20047, 8224, 8224 

61189 '** ROBOT 

61190 DATA 8224, 8224, -18256, -20300, 8224, 8224 
61200 DATA 8224, 8224, -31595, -21880, 8224, 8224 
61210 DATA -20448, -20304, -17485, -19529, -20304, 

8368 
61220 DATA -27360, -16470, -16449, -16449, -27201, 

8362 
61230 DATA -21080, -28790, -28737, -16497, -31345, 

-27490 
61240 DATA 8224, -20320, 8383, -16608, -28496, 8224 
61250 DATA 20306, 20290, 8276, 8224, 8224, 8224 

61259 '** STAIRS 

61260 DATA 8224, 8224, 8224, 8224, 8224, 8224 
61270 DATA 8224, 8224, 8224, 8224, 8224, 8224 
61280 DATA 8224, 8224, 8224, 8224, 8224, 8224 
61290 DATA 8224, 8224, 8224, -17232, -16449, -16449 
61300 DATA 8224, -20448, -16452, -16449, -16449, 

-16449 
61310 DATA -17232, -16449, -16449, -16449, -16449, 

-16449 
61320 DATA 21587, 18753, 21330, 8224, 8224, 8224 

61329 '** TREE 

61330 DATA 8224, 8224, 8224, 8224, 8224, 8224 
61340 DATA 8224, -25424, -27769, -29813, -20308, 

8224 
61350 DATA -30176, -28491, -30559, -28384, -17758, 

8325 
61360 DATA 8224, -31968, -21363, -29028, 8323, 8224 
61370 DATA 8224, 8224, -21984, 8341, 8224, 8224 
61380 DATA 8224, 8224, -16720, -20291, 8224, 8224 
61390 DATA 21076, 17733, 8224, 8224, 8224, 8224 



61399 
6L400 
61410 

61420 

61430 

61440 
61450 
61460 
61469 
61470 
61480 
61490 
61500 
61510 
61520 
61530 
61539 
61540 
61550 
61560 
61570 
61580 
61590 
61600 
61609 
61610 

61620 



8224, -24544, 8224, 8224, 8224 
-17232, -16450, -17217, -28492, 

-16449, -16449, -16449, -16449, 

-32373, -21621, -32373, -32373, 



*** UMBRELLA 
DATA 82 24, 
DATA 8224, 

8224 
DATA -16456 

-28483 
DATA -32 37 3 

-32373 
DATA 8224, 8224, -21984, 8224, 8368, 8224 
DATA 8224, 8224, -32224, -31095, 8321, 8224 
DATA 19797, 21058, 19525, 16716, 8224, 8224 
'** VACUUM 

DATA 8224, 8224, 8224, 8224, 8224, 8224 
DATA 8224, 8224, -25440, 8324, 8224, 8224 
DATA 8224, 8224, -28481, 8224, 8224, 8224 
DATA 8224, 8224, -16449, 8372, 8224, 8224 
DATA 8224, 8224, -16449, -27201, 8224, 8224 
-16452, -28737, 8323, 8224, 8224 
21827, 19797, 8224, 8224, 8224 



DATA -18272 
DATA 16726 
'** WRENCH 
DATA 8224, 
DATA 8224, 
DATA 8224, 
DATA 8224, 
DATA 82 24, 
DATA 
DATA 21079 



8224, 8368, 8368, 8224, 8224 
8224, -16509, 8323, 8224, 8224 
8224, -16608, 8224, 8224, 8224 
8224, -16608, 8224, 8224, 8224 
-21984, -31849, -27221, 8224, 8224 
8224, 8224, 8224, 8224, 8224, 8224 

20037, 18499, 8224, 8224, 8224 
'** XYLOPHONE 

DATA 8224, -29540, -29556, -29556, -27508, 
8224 
DATA -27360, -19574, -19533, -19533, 8347, 8224 



61630 DATA -27360, -22240, -29556, -21364, 8321, 8362 



61640 


DATA 


-27360 


, 8224, 


-19545 


, -31309, 8224, 8362 


61650 


DATA 


-28790 


, 8224, 


-21374 


, 8326, 8224, 8362 


61660 


DATA 


8224, 


8224, 


8224, 8224, 8224, -31345 


61670 


DATA 


22872 


, 20300 


, 18512 


, 20047, 8261, 8224 


61679 


'** YIELD SIGN 






61680 


DATA 


-27765 


, -31869, -31869, -31869, -31869, 




-30813 










61690 


DATA 


-32224 


22948 


17737 


17484, -26592, 8321 


61700 


DATA 


8224, 


-30432 


8336, 


-24544, 8326, 8224 


61710 


DATA 


8224, 


8224, 


-23422, 


-32360, 8224, 8224 


61720 


DATA 


8224, 


8224, - 


-219*54, 


8341, 8224, 8224 


617 30 


DATA 


8224, 


8224, - 


-21984, 


8341, 8224, 8224 


61740 


DATA 


18777 


19525 


8260, 


18771, 20039, 8224 


61749 


'** ZIPPER 








61750 


DATA 


8224, 


8224, - 


-19424, 


-27512, 8224, 8224 


61760 


DATA 


8224, 


8224, 


-253i2, 


-27230, 8224, 8224 


61770 


DATA 


8224, 


8224, - 


-18656, 


-27256, 8224, 8224 


61780 


DATA 


8224, 


8224, - 


-25312, 


-27230, 8224, 8224 


61790 


DATA 


8224, 


8224, - 


-18656, 


-27256, 8224, 8224 


61800 


DATA 


8224, 


8224, - 


-21728, 


-32325, 8224, 8224 


61810 


DATA 


18778 


20560 


21061 


8224, 8224, 8224 



JB§ 






■HHMr ' ■' 
■_ - - 
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Sound Generator 



Jerry W. Stajduhar 
5114 Lodgepole Lane 
Mountain Home AFB, ID 83648 



Both tone programs were written for the Model I, but 
might work on the Model III if the cassette port is addressed 
and controlled the same (I'm not sure how the Model III 
works). The listings are of two BASIC programs that can 
make sound when called by the USR(X) function. The pro- 
grams are identical, except one is for 16K non-disk and the 
other is for 48K disk systems. 

INSTRUCTIONS FOR USE OF THE 'TONE' PROGRAM 

The tone program is designed to be used on the TRS-80 
Model I to give the computer the ability to generate sound 
under BASIC control (with the help of a small amplifier con- 
nected to the cassette aux. plug). 

To use the program, first set the correct memory size (see 
program listing for your computer). Then enter your main 
program, adding in the tone program somewhere at the 
beginning. The tone program need only be executed once. It 
generates a machine language program that the computer 
calls by using the USR command. I usually put the tone 
program on the first four lines to insure that it gets executed 
(using the USR function without having a machine language 
program in memory tends to be unhealthy)! Once the data 
has been read into memory it is ready to generate tones. 

To tell the tone program what sounds you want it to 
make, a 'music table' must be poked into memory (it's very 
easy). The music table starts at 32700 for the 1 6K version and 
-136 for the 48K disks version (-136 is BASIC'S way of 
saying 65400). First, you must decide how long you want the 
tone to last. You have a choice of 1-255, with 1 being the 
shortest and 255 being the longest. You then poke this value 
at the start of the music table (32700 for 1 6K, - 1 36 for 48K 
disk). Then you decide on what tone you want. You can have 
0-255; 1 is highest; 255 is lowest; is a rest (silence). You 
must then poke this value into the next memory location in the 
music table (32701 for 16K, - 135 for 48K disk). Then you 
decide on the length of the next tone and poke that value into 
the next location (32702, - 134), and the same with the next 
note. You continue to make the table in the same fashion until 
you are done with whatever sound you are trying to make. 
After you have poked the last tone into memory, you need to 
tell the computer that you are finished. This is done by poking 
in for the next duration. The computer recognizes this as the 
end of the music table. 

To get the computer to play the music table, you call up 
the USR function. The computer will then start at the begin- 
ning of the table and play until it sees a duration of (make 
sure the is there!!! Otherwise, the computer will try to play 
whatever is in memory, after the music table— it may also 
never return to BASIC!). 

When the computer encounters the duration 0, it will 
return to the next BASIC instruction following the USR com- 
mand. The music can be played as often as you like by calling 
the USR function. The music table can also be changed by 
poking different values at any time during the BASIC pro- 
gram (just remember the computer starts at the beginning of 
the table every time, and it has to have the duration to get 
back to BASIC). 



NOTE: If you don't already have an amplifier connected 
to your computer, it's very simple to do. Just buy a small 
amplifier (RS 277-1008, about $12.00), and plug the cable 
from the computer (which normally goes to the aux jack on 
the cassette recorder) into the amplifier. Now you have 
sound!!! 

Program 1. (16K non-disk) 

i DATA 62, 02, 211, 255, 221, 33, 188, 127, 221, 78, 

00, 22, 1(3, 121, 183, 202, 58, 127, 221, 126, 

01, 183, 194, 22, 127, 221, 54, 01, 30, 30, 02, 
195, 24, 127, 30, 01, 221, 70, 01, 123, 211, 255 

254, 221, 70, 01, 62, 02, 211, 255, 16, 
21, 194, 24, 127, 22, 10, 13, 194, 24, 127, 
221, 35, 195, 252, 126, 62, 02, 211, 



2 DATA 16 
254, 
221, 
255, 

3 



35, 

201 

FOR X=32500 TO 32574 

READ Y 

POKE X, Y 

NEXT 

POKE 16527, 126 
POKE 16526, 244 
REM START MUSIC TABLE AT POKE 32700: USE DURATION, 
TONE: RANGE 1-255; SHORT-LONG; HI-LO:USE DURATION 
TO RETURN TO BASIC: USE TONE FOR REST: MEM 
SIZE 32499 



Program 2. (48K disk) 



255, 221, 35 
, 255, 201 



221, 



DATA 62, 02, 211, 255, 221, 33, 120, 255, 221, 78, 

00, 22, 10, 121, 183, 202, 90, 255, 221, 126, 

01, 183, 194, 54, 255, 221, 54, 01, 30, 30, 02, 
19 5, 56, 255 

DATA 30, 01, 221, 70, 01, 123, 211, 255, 16, 254, 
221, 70, 01, 62, 02, 211, 255, 16, 254, 21, 194 : 
56, 255, 22, 10, 13, 194, 56, 
35, 195, 28, 255, 62, 02, 211 
DEFUSRl=-236 

FOR V=65300 TO 65374 
READ VI 

POKE (-1*(65536-V)), Vl 
NEXT 

4 'START MUSIC TABLE AT POKE-136 TO 0:USE DURATION, 
TONE: RANGE 1-255 ; SHORT-LONG; HI-L0:USE 

DURATION TO RETURN 
TO BASIC:USE TONE FOR REST: USRl (X) :DISABLE 

INTERRUPTS 
FOR PURE TONE:MEM SIZE 65299 JE3 



Addition Drill and 
Drawing Pad 



Adam Roth 
35-10 150 Street 
Flushing, NY 11354 



I have contributed two games for Models I and III, 
Addition Drill, a math teacher for addition facts and Drawing 
Pad, which uses the arrow keys to draw pictures. 

Program 1 . Addition Drill 

This program will provide drill and practice for addition facts 
up to 100 + 100. 



10000 CLS 

10001 PRINT 

: PRINT 

10002 INPUT "INPUT YOUR NAME PLEASE"; A$ 
: PRINT "THANK YOU", A$ 
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10003 PRINT " THERE IS ONE TYPE OF FUNCTION 
POSSIBLE." 

10004 PRINT " 1) ADDITION" 

10005 PRINT 
: PRINT 

10006 INPUT "HIT ENTER TO BEGIN THE GAME OF 
MATHEMATICS"; A 

10007 A=RND(100) 
: B=RND(100) 
: C=A+B 

10008 CLS 

10009 PRINT 
: PRINT 
: PRINT 

10010 PRINT "ONE HINT IS THAT IF YOU DO NOT KNOW THE 
ANSWER THEN HIT THE ENTER KEY" 

10011 PRINT A; "PLUS"; B; "EQUALS" 
: INPUT D 

10012 IF C=D THEN PRINT "YOU ARE RIGHT" ELSE PRINT 
"YOU ARE WRONG. THE ANSWER IS"; C 

IF COD THEN Z=Z+1 

GOSUB 10018 

IF N>0 THEN 10007 

10013 IF COD THEN Z=Z+1 ELSE X=X+1 
: GOSUB 10015 

10014 GOTO 10007 

10015 PRINT @0, "WRONG ANSWERS"; Z 

: PRINT @45, "RIGHT ANSWERS"; X 

10016 FOR 1=0 TO 1000 
: NEXT I 

10017 RETURN 

10018 PRINT @0, "WRONG ANSWERS"; Z 

: PRINT @45, "RIGHT ANSWERS"; X 

10019 IF Z+X=10 THEN GOSUB 10022 

10020 N=N+1: 

10021 FOR 1=0 TO 1000 
: NEXT I 

: RETURN 

10022 CLS 

10023 B$=INKEY$ 

: IF B$=""THEN 10023 ELSE 10024 

10024 P=P+1 

: IF P=10 THEN PRINT 

10025 X=0 

: Z=0 
: RETURN 

Program 2. Drawing Pad 

CLS 

: CLEAR 2000 

1 GOSUB 2000 

2 FOR 1=1 TO 1000 

: NEXT I 
: CLS 

3 INPUT "DO YOU NEED INSTRUCTIONS (Y/N)"; B$ 

4 IF B$="N" THEN 5 ELSE 100 

5 CLS 

6 X=63 

7 Y=25 

8 SET (X, Y) 

: GOTO 10 

9 FOR X=0 TO 127 
FOR Y=0 TO 47 

IF POINT(X,Y)=l THEN PRINT X, Y ELSE OUT 255,9 
NEXT Y, X 

10 A$=INKEY$ 
: IF A$=CHR$(9) THEN X=X+1 
: SET (X, Y) 

20 IF A$=CHR$(91) THEN Y=Y-1 

: SET (X, Y) 
30 IF A$=CHR$(8) THEN X=X-1 

: SET (X, Y) 
40 IF A$=CHR$(10) THEN Y=Y+1 

: SET (X, Y) 
50 IF A$="6" THEN X=X+1 

: RESETU, Y) 



BY USING THE APPROPRIATE ARROW KEYS YOU 



BY 



60 IF A$="8" THEN Y=Y-1 

: RESET(X, Y) 
70 IF A$="4" THEN X=X-1 

: RESETU, Y) 
80 IF A$="2" THEN Y=Y+1 

: RESET(X, Y) 

90 IF A$=CHR$(31) THEN GOTO 5 

91 IF A$="S" THEN GOSUB 3000 

92 IF A$="R" THEN 3004 
95 GOTO 10 
100 PRINT 
110 PRINT A$ 

: PRINT' 

CAN DRAW" 

: PRINT A$ 
120 PRINT A$ 

: PRINT " THE APPROPRIATE SHAPE OR OBJECT THAT 

YOU WANT TO CREATE!" 

: PRINT A$ 
130 PRINT A$ 

: PRINT "BY PRESSING <S> YOU CAN SEARCH THE 

SCREEN FOR YOUR PICTURE AND" 

: PRINT A$ 

140 PRINT A$ 

: PRINT "SAVE IT ON YOUR TAPE RECORDER. 
PRESSING <R> YOU CAN RECREATE" 

: PRINT A$ 
150 FOR 1=0 TO 5000 

: NEXT I 
160 CLS 

: PRINT A$ 

: PRINT "YOUR PICTURE. WHEN USING THE CORRECT 

ARROW KEYS YOU CAN ALSO" 

: PRINT A$ 
170 PRINT A$ 

: PRINT "ERASE YOUR LINES BY USING 8 

4 6 2" 

: PRINT A$ 

1998 FOR 1=0 TO 2000 
: NEXT I 

1999 GOTO 5 
A$=STRING$(63, 191) 

PRINT @384, " " 

PRINT A$ 

PRINT CHR$(191); " C S M I C SO 

F T W A R E "; CHR$(191) 

PRINT A$; 

2002 FOR 1=0 TO 2000 
: NEXT I 

: CLS 

2003 PRINT @384, " " 
: PRINT A$ 

: PRINT CHR$(191); " P RES 

E N T S "; CHR$(191) 

PRINT A$; 

FOR 1=0 TO 2000 

NEXT I 

CLS 

2004 PRINT (§384, " " 
: PRINT A$ 

: PRINT CHR$(191); " D R A W I N 

P A D "; CHR$(191) 

PRINT A$ 

FOR 1=0 TO 2000 

NEXT I 

CLS 

RETURN 
DIM D(16383-15360) 
: Q$=CHR$(32) 
: DIM VU023) 
FOR V=15360 TO 16383 

M=M+1 

IF M=1023 THEN 3002 ELSE P=0 

D(M)= PEEK (V) 

A= PEEK (15423) 

PRINT @63, "*" 



2001 



G 



2005 



3001 
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P=0 ELSE PRINT #-1, D(V) , I 



: POKE 15423, A 
: NEXT V: 

3002 FOR V=0 TO 1023 
: IF D(V)=32 THEN 
: NEXT V 

3003 RETURN 

3004 CLS: 

3005 FOR V=0 TO 1023 
INPUT #-1, D(V), I 
POKE I, D(V) 
NEXT V J3 



Word Counter 



Joseph McCarthy 
203 Lee Street 
Brundidge, AL 36010 



"Class, please make that essay five-hundred words.", 
the teacher said in a cold stern voice. Well, now that you have 
your assignment, you'll find this program a big help. 

The Word Counter allows you to determine the number 
of words in a Model III SCRIPSIT file. The file may be saved in 
either the ASCII or non-ASCII format. I have found that the 
ASCII format gives a more accurate word count. Since this 
program is in BASIC, you will find that it runs rather slowly. I 
was able to process a 688 word document in 1 minute and 36 
seconds. 

After your file has been processed, a menu will appear. 
This menu will allow you to go back to BASIC, TRSDOS, 
The Word Counter, or SCRIPSIT. The return to SCRIPSIT 
from BASIC is accomplished by using CMD'T'. The program 
will work as listed for the Model III, but Model I owners will 
have to make the following changes: 

Delete lines 370, 420, and 430. 

Change line 400 to: 400 POKE A, 94. 

Change line 440 to: 440 IF B>2 THEN 450 ELSE IF 

PEEK(14400) = 16 
THEN 
B = B + 1:A = A + 64. 

Change line 480 to: 480 ON B GOTO 10, 490, 500. 

Oh, by the way, according to The Word Counter this 
article has 244 words. 

10 CLS 

: CLEAR 1500 
20 BP=1 
30 PRINT TAB(24) "The Word Counter" 

: PRINT 
40 INPUT "Which document should I process"; FILE$ 
50 OPEN "I", 1, FILE$ 
60 GOSUB 160 
70 IF C$=" " THEN IN=0 

: GOTO 60 
80 IF INO0 THEN GOTO 60 
90 IN=1 

: CT=CT+1 
100 GOTO 60 
110 PRINT 

: A$="I found"+STR$(CT)+" words in "+FILE$+"." 

: PRINT TAB(32-LEN(A$)/2); A$ 
120 CLOSE 

130 PRINT @ 976, "Please press <ENTER> to continue."; 
140 IF PEEK( 14400)01 THEN GOTO 140 
150 GOTO 300 

160 IF BP>LEN(B$) THEN 210 
170 IF BP<LEN(B$) THEN 240 
180 C$=" " 



190 
200 
210 
220 
230 
240 
250 
260 
300 
310 



320 
330 
340 
350 
360 
370 
380 



390 
400 

410 

420 

430 

440 

450 

460 
470 
480 
490 

500 
510 



BP=BP+1 

RETURN 

BP=0 

ON ERROR GOTO 110 

INPUT #1, B$ 

BP=BP+1 

C$=MID$(B$, BP, 1) 

RETURN 

CLS 

PRINT TAB(24) "The Word Counter" 

: PRINT 

: PRINT TAB(24) "*** Main Menu ***" 
PRINT STRING$(64, "=") 
PRINT (3 640, STRING$(64, "=") 
PRINT @ 337, " 1. Process another document" 
PRINT @ 401, ." 2. Return to TRSDOS Ready" 
PRINT @ 465, " 3. Return to BASIC READY" 
PRINT @ 529, " 4. Return to SCRIPSIT" 
PRINT @ 704, "Please select an option by using 

the <ARROW~KEYS>," 

: PRINT "and then press <ENTER>." 

A=15696 

: B=l 
POKE A- 2, 244 

: POKE A-l , 245 

: POKE A, 246 
POKE A- 64, 128 

: POKE A+64, 128 
POKE A-65, 128 

: POKE A+63, 128 
POKE A-66, 128 

: POKE A+62, 128 
IF B>3 THEN 450 ELSE IF PEEK( 14400 )=16 THEN B=B+1 

: A=A+64 
IF B<2 THEN 460 ELSE IF PEEK( 14400 )=8 THEN B=B-1 

: A=A-64 
IF PEEK( 14400 )=1 THEN 480 
GOTO 400 

ON B GOTO 10, 490, 500, 510 
CLS 

: CMD"S" 
NEW 
CLS 

: CMD"I", "SCRIPSIT/CMD" Jl 
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Pocket Computer 




bly Language- Part 3 



By Bruce Elliott 



This is the third in a series of articles which will describe 
the MPU (microprocessor unit) used in the Radio Shack 
PC-2 pocket computer. It is our intention to include specific 
information about the 8-bit CMOS microprocessor, the ma- 
chine code used by the microprocessor, as well as informa- 
tion about the PC-2 memory map, and certain ROM calls 
which are available. Please realize that much of what we 
are talking about refers to the overall capabilities of MPU, 
and does not imply that all of these things can be done with a 
PC-2. 

The information provided in these articles is the only 
information which is available. We will try to clarify any ambi- 
guities which occur in the articles, but can not reply to ques- 
tions outside the scope of these articles. Further, published 
copies of TRS-80 Microcomputer News are the only source of 
this information, and we will not be maintaining back issues. 
Parts One and Two of this series were published in the March 
and April issues, respectively. 

JUMPS/BRANCHES 

BCH— Causes a relative jump to a new program area that is 
determined by adding/subtracting the immediate 
value i to/from the program counter P. 

Hex 

Mnemonic Symbolic Operation Op-Code Byte Cycle 

BCH + i P + i-P 8E i 2 8 

BCH-i P-i— P 9E i 2 9 

BCR— -Conditional relative jump instruction. The relative 
jump is made when "C = 0'.' If "C = 1" control pro- 
ceeds to the next instruction. It causes no flag 
changes. 



Mnemonic Symbolic Operation 

BCR + i if C = 0, P + i-P 

BCR-i if C = 0, P-i— P 

Comment— If C = 1 , no jump 



BCS— -Conditional relative jump instruction. When the condi- 
tion "C = 1" is met, a relative jump is made to the 
program area that is found after adding/subtracting 
the immediate value i to/from the program counter P. If 
"C = 0" , control proceeds to the next instruction with- 
out making the relative jump. It causes no flag 
change. 



Hex 




Op-Code 


Byte Cycle 


81 i 


2 8-11 


91 i 


2 8-11 



Mnemonic Symbolic Operation 

BCS + i if C = 1, P + i-P 

BCS-i if C = 1, P-i-P 

Comments— if C = 0, no jump 



Hex 
Op-Code 

83 i 
93 i 



Byte Cycle 

2 8-11 

2 8-11 



BHR— A relative jump is made when "H = 0". If "H = 1',' 
control proceeds to the next instruction. It causes no 
flag changes. 



Mnemonic Symbolic Operation 

BHR + i if H = 0, P + i-P 

BHR-i if H=0, P-i-P 

Comment— if H = 1 , no jump 



Hex 




Op-Code 


Byte Cycle 


85 i 


2 8-11 


95 i 


2 8-11 



BHS— A relative jump, is made when "H = 1" If "H=0" con- 
trol proceeds to the next instruction. It causes no flag 
changes. 



Mnemonic Symbolic Operation 

BHS + i if H = 1, P + i-P 

BHS-i if H = 1, P-i-P 

Comment— if H =0, no jump 



Hex 




Op-Code 


Byte Cycle 


87 i 


2 8-11 


97 i 


2 8-11 



BVR— A relative jump is made when "V = 0'.' If "V = 1 ',' control 
proceeds to the next instruction. It causes no flag 
changes. 



Hex 




Op-Code 


Byte Cycle 


8D i 


2 8-11 


9D i 


2 8-11 



Hex 




Op-Code 


Byte Cycle 


8F i 


2 8-11 


9F i 


2 8-11 



Mnemonic Symbolic Operation 

BVR + i if V = 0, P + i-P 

BVR-i if V = 0, P-i-P 

Comment— if V = 1 , no jump 



BVS - A relative jump is made when "V = 1 '.' If "V = 0',' control 
proceeds to the next instruction. It causes no flag 
changes. 



Mnemonic Symbolic Operation 

BVS + i if V = 1, P + i-P 

BVS-i if V = 1, P-i-P 

Comment— if V = 0, no jump 



BZR— A relative jump is made when "Z = 0'.' If "Z = 1 ',' control 
proceeds to the next instruction. It causes no flag 
changes. 



Mnemonic Symbolic Operation 

BZR + i if Z = 0, P + i-P 

BZR-i if Z = 0, P-i-P 

Comment— if Z = 1 , no jump 



BZS— -A relative jump is made when "Z = 1 '.' If "Z = 0',' control 
proceeds to the next instruction. It causes no flag 
changes. 

Hex 
Mnemonic Symbolic Operation Op-Code Byte Cycle 

BZS + i -if Z = 1, P + i-P 8B i 2 8-11 

BZS-i if Z = 1, P-i-P 9B i 2 8-11 

Comment— if Z = 0, no jump 

JMP— Causes a jump to a new program area implied by the 
immediate value in the second and third bytes. It 
causes no flag change. 

Hex 

Op-Code Byte Cycle 

BA i i 3 12 



Hex 




Op-Code 


Byte Cycle 


89 i 


2 8-11 


99 i 


2 8-11 



Mnemonic 

JMP i,j 



Symbolic Operation 

i-PH, i— PL 
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LOP— This instruction causes a relative jump to a new pro- 
gram area if, when UL is reduced by 1, no borrow 
occurs (i.e., UL remains positive or zero). The new 
program area is determined by subtracting the imme- 
diate value i from P. If a borrow occurs when UL is 
reduced by 1 , no jump takes place and execution 
proceeds to the next instruction. It causes no flag 
changes. 

Hex 
Mnemonic Symbolic Operation Op-Code Byte Cycle 

LOPUL.i UL-1-UL 88 i 2 8-11 

Comment— if borrow =1, no jump; if borrow =0, P-i— P 



CALLS 
SJP 



Makes a subroutine jump to the address specified by 
the immediate values i and j. At the same time, the 
address of the next instruction is stored in the stack. It 
causes no flag changes. 



Mnemonic 

SJP 



Symbolic Operation 

PL-(S), PH-(S-1), 
S-2-S, i—PH, j — PL 



Hex 
Op-Code 

BE i j 



Byte Cycle 

3 19 



VCR— Conditional vector subroutine jump. When "C = 0',' 
the vector subroutine jump is performed. If "C = 1 ',' the 
control proceeds to the next instruction. The Z flag is 
reset after the jump. VCR uses FF00 through FFF6 as 
its vector address table, and the values 00 through F6 
are valid for the immediate value. 



Hex 
Op-Code 

C1 i 



Byte 

2 



Cycle 

8-21 



Mnemonic Symbolic Operation 

VCR i if C = 0, 

PH-(S-I), PL-(S) 
(FFab)-PH, (FFab + 1)-PL 
S-2-S 

Comment—if C = 1, no jump, ab = Hex digits in 



VCS— Conditional vector subroutine jump. When "C = 1" it 
performs the vector subroutine jump. If "C = 0" the 
control proceeds to the next instruction. The Z flag is 
reset after the jump. VCS uses FF00 through FFF6 as 
its vector address table and the values 00 through F6 
are valid for the immediate value. 



Hex 
Op-Code 

C3 i 



Byte 

2 



Cycle 

8-21 



Mnemonic Symbolic Operation 

VCS i if C = 1 , 

PH-(S-1), PL-(S) 
(FFabHPH, (FFab + 1)-PL 
S-2~S 

Comment— if C = 0, no jump, ab = Hex digits in 



VEJ— Vector subroutine jump. VEJ is a one byte instruction 
which makes a subroutine jump based on a vectored 
address. The vector table is located in memory from 
FF00 to FFF6. The Z flag is reset after the vector jump 
is executed. 







Hex 




Mnemonic 


Symbolic Operation 


Op-Code 


Byte Cy 


VEJ (ab) 


PL-(S), S-1-S 






VEJ (CO) 


PH-(S), S-1-S 


CO 


1 17 


VEJ (C2) 


(FFab)-PH 


C2 


1 17 


VEJ (C4) 


(FFab + 1)-PL 


C4 


1 17 


VEJ (C6) 




C6 


1 17 


VEJ (C8) 




C8 


1 17 


VEJ (CA) 




CA 


1 17 


VEJ (CC) 




CC 


1 17 


VEJ (CE) 




CE 


1 17 



VEJ 


(DO) 


VEJ 


(D2) 


VEJ 


(D4) 


VEJ 


(D6) 


VEJ 


(D8) 


VEJ 


(DA) 


VEJ 


(DC) 


VEJ 


(DE) 


VEJ 


(E0) 


VEJ 


(E2) 


VEJ 


(E4) 


VEJ 


(E6) 


VEJ 


(E8) 


VEJ 


(EA) 


VEJ 


(EC) 


VEJ 


(EE) 


VEJ 


(F0) 


VEJ 


(F2) 


VEJ 


(F4) 


VEJ 


(F6) 



DO 


1 17 


D2 


1 17 


D4 


1 17 


D6 


1 17 


D8 


17 


DA 


17 


DC 


17 


DE 


17 


E0 


17 


E2 


17 


E4 


17 


E6 


17 


E8 


17 


EA 


17 


EC 


17 


EE 


17 


F0 


17 


F2 


17 


F4 


17 


F6 


17 



Comment— Where, "ab" is the instruction code of VEJ. 

VHR— Conditional vector subroutine jump. When "H = 0" 
the vector subroutine jump is performed. If "H = 1" 
the control proceeds to the next instruction. The Z flag 
is reset after the jump. VHR uses FF00 through FFF6 
as its vector address table and the values 00 through 
F6 are valid for the immediate value. 



Mnemonic 

VHR i 



Symbolic Operation 

if H = 0, 

PH-(S-1), PL-(S) 
(FFab)-PH, (FFab + 1)- 
S-2-S 



Hex 
Op-Code 

C5 i 



Byte Cycle 

2 8-21 



•PL 



Comment— if H = 1 , no jump, ab = Hex digits in i 

VHS— Conditional vector subroutine jump. When "H = 1 ',' it 
performs the vector subroutine jump. If "H=0" the 
control proceeds to the next instruction. The Z flag is 
reset after the jump. VHS uses FF00 through FFF6 as 
its vector address table and the values 00 through F6 
are valid for the immediate value. 



Mnemonic 

VHS i 



Symbolic Operation 

if H = 1 , 

PH-(S-I), PL~(S) 
(FFab)-PH, (FFab + 1)- 
S-2-S 



Hex 
Op-Code 

C7 i 



Byte 

2 



Cycle 

8-21 



■PL 



Comment— if H = 0, no jump; ab = Hex digits in i 

VMJ— Vector subroutine jump. VMJ is the subroutine jump 
that branches to a vectored address, of which the 
high order byte is composed of "FF" and low order 
byte is composed of the immediate value i. Note that 
the Z flag is reset after the vector jump, when VMJ is 
executed. VMJ uses FF00 through FFF6 as its vector 
address table, and the values 00 through F6 are valid 
for the immediate value. 







Hex 




Mnemonic 


Symbolic Operation 


Op-Code 


Byte Cycle 


VMJ i 


PL-(S), S-1-S 
PH-(S), S-1-S 
(FFab)-PH 
(FFab + 1)~PL 


CDi 


2 20 


Comments- 


-ab = Hex digits in i 







VVS— Conditional vector subroutine jump. When "V = 1" it 
performs the vector subroutine jump. If "V = 0" the 
control proceeds to the next instruction. The Z flag is 
reset after the jump. VVS uses FF00 through FFF6 as 
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its vector address table and the values 00 through F6 
are valid for the immediate value. 





Hex 




Mnemonic 


Symbolic Operation Op-Code 


Byte Cycle 


WSi 


if V = 1 , CF i 

PH-(S-1), PL-(S) 
(FFab)-PH, (FFab + 1)-PL 
S-2-S 


2 8-21 


Comment- 


-if V = 0, no jump; ab = Hex digits in i 





VZR— Conditional vector subroutine jump. When "Z = 0',' the 
vector subroutine jump is performed. If "Z = 1',' the 
control proceeds to the next instruction. The Z flag is 
reset after the jump. VZR uses FF00 through FFF6 as 
its vector address table and the values 00 through F6 
are valid for the immediate value. 

Hex 
Mnemonic Symbolic Operation Op-Code Byte Cycle 

VZRi ifZ = 0, C9 i 2 8-21 

PH-(S-1), PL-(S) 
(FFab)-PH, (FFab+1)-PL 
S-2-S 
Comment— if Z = 1, no jump, ab = Hex digits in i 

VZS— Conditional vector subroutine jump. When "Z = 1" it 
performs the vector subroutine jump. If "Z = 0',' the 
control proceeds to the next instruction. The Z flag is 
reset after the jump. VZS uses FF00 through FFF6 as 
its vector address table, and the values 00 through F6 
are valid for the immediate value. 



Hex 
Op-Code 

CB i 



Byte 

2 



Cycle 

8-21 



Mnemonic Symbolic Operation 

VZS i ifZ = 1, 

PH-(S-1), PL-(S) 
(FFab)-PH, (FFab + 1)-PL 
S-2-S 

Comment— -if Z = 0, no jump; ab = Hex digits in 



RETURNS 

RTI— Return instruction from the interrupt subroutine to the 
main routine. All flags are subject to change. 

Hex 
Mnemonic Symbolic Operation Op-Code Byte Cycle 

RTI (S + 1)-PH, '8A 1 14 

(S + 2)-PL, 
(S + 3)-T, 
S + 3-S 

RTN— Return instruction from a subroutine to the calling 
routine. RTN causes no changes in the flags. 

Hex 
Mnemonic Symbolic Operation Op-Code Byte Cycle 

RTN (S + 1)-PH, 9A 1 11 

(S + 2)-PL, 
S + 2-S 



TIMER 

The timer is composed of a 9-bit polynomial counter and 
the time duration can be set using the AM0 and AM 1 instruc- 
tions. This counter is in operation at all times, so it needs to be 
set to 000 (Hex) before being used. A timer interrupt request 
can be generated when the content of the counter is 1FF 
(Hex), if Interrupt Enable IE is on. 

When a timer interrupt occurs, interrupt processing be- 
gins at the address specified in addresses FFFA and FFFB. 



When a 4MHz crystal oscillator is used, the clock 
produces a oF of 31 .25KHz with a cycle of 32 microseconds. 
In other words, the timer counter is incremented once every 
32 microseconds. 



_D 



XL0- 



XLI-i. 



4MHz 
OS 



i rri \~r\ r 



Divider 



2 1 500 250 125 62.5 

MHz MHz KHz KHz KHz KHz 



31.25 
KHz 
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National Computer 
Camp 

National Computer Camp (NCC), which is believed to be 
the first computer camp in this country, is powering up for 
another series of computer camps for kids from ages nine to 
eighteen. 

Campers at National Computer Camps learn to program 

the computer through a hands-on approach along with am- 
ple time on, and access to, the computer— two to three 
campers per computer. In the process, the campers come to 
understand the potential as well as the limitations involved in 
using computers. 

1983 will be the sixth season of NCC, and for the 
first time, the camp will be held in three separate locations: 
Simsbury, CT; Atlanta, GA; and St. Louis, MO. 

The sessions will be: 

July 3— July 8 
July 10— July 15 
July 17— July 22 
July 24— July 29 
July 31— August 5 

National Computer Camps 
P.O. Box 585 
Orange, CT 06477 
1-203-795-9667 

FLASH— Fourth Location Now Available 

Dr. Zabinski has just informed us of a fourth National 
Computer Camp location for this summer. The fourth camp 
will be at Linfield College in McMinnville, Oregon. For further 
information, contact NCC at the address and phone number 
shown above. -O 
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By Peter Levy 



One of the most powerful (and probably least under- 
stood) features of the PC-2 is its handling of BASIC'S INPUT 
statement. It is one of the most adaptable and powerful 
implementations of INPUT ever published in any version of 
BASIC. Of course, the more a programming statement can 
do, the more there is to learn about it, and the more ways 
there are to get messed up using it. 

FUNDAMENTAL INPUT SYNTAX 

At its simplest level, the PC~2's syntax for the INPUT 
statement is quite conventional: 'INPUT X' displays a "?" (to 
show the PC-2 is asking for information) and loads a value 
from keyboard input into the specified variable (in this case, 
X). Simple and conventional. 

INPUT WITH PROMPT 

Like most other BASICs, the PC-2 can display a prompt 
from within an INPUT statement. Unlike most, there are two 
separate ways to do this. 

The first way displays a prompt and a cursor (again, this 
is to show that the PC-2 is asking for something— to be 
technical, the cursor indicates that the keyboard is "active"). 
The syntax for this form of INPUT is 'INPUT "prompt";X\ 
When this is executed, "prompt" is displayed, and the user's 
input is displayed as he types it (it is "echoed"). 

The second way is pretty similar, the differences being 
that no cursor is displayed with the prompt, and, (more 
noticeable), the display is cleared the instant the first key is 
pressed in reply to the prompt. The syntax for this form of 
INPUT is 'INPUT "prompt", X'. The only difference is that a 
comma, rather than a semicolon, separates the prompt and 
variable. 

INPUT OF SEVERAL VARIABLES 

The PC-2 offers another variant of the INPUT statement 
which allows more than one variable to be loaded with a 
single INPUT command. The general syntax used is INPUT 
A, B.C. .... Although this syntax is conventional, its execu- 
tion is not. The user must press < ENTER) after EACH value 
he types. This is different from Radio Shack's desktop mod- 
els, for which all the INPUT values are typed on one line and 
then (ENTER) is only pressed once, at the end. 

Each time the PC-2 asks for a next INPUT value, the "?" 
prompt is displayed again to show that the keyboard is still 
active. In fact INPUT A,B,C is exactly the same as three 
separate single-variable INPUTs: INPUT A, INPUT B, and 
INPUT C. 

SUMMARY OF INPUT RULES 

Now let's set forth a few nice simple general rules about 
all this. 



First, any INPUT is started with the word INPUT. 

Second, consecutive variables to be loaded are listed 
after INPUT and are separated by commas. This is called an 
input list. 

Third, any input variable within the input list may be 
preceded with a quoted text which will be displayed as a 
prompt when the PC-2 requests that particular variable. The 
prompt and the variable name should be separated by either 
a comma or a semicolon. If a comma is used, the prompt 
disappears when you start entering data; if a semicolon is 
used, the prompt remains displayed as you type. 

Fourth, as long as you follow these three general rules, 
you can get away with almost any combination of the various 
types of INPUTs you can think of. 

These examples are all valid uses of INPUT: 



INPUT 


X 

INPUT Y 




INPUT 


"ENTER X ";X 

INPUT "ENTER Y ";Y 




INPUT 


"ENTER X, THEN Y ";X,Y 




INPUT 


"ENTER X ";X, "ENTER Y " 


;Y 


INPUT 


"ENTER X, THEN Y ";X,Y, 


"NOW ENTER 



EVALUATION OF NUMERIC INPUT 

One of the most powerful features of the PC-2's INPUT 
statement is its ability to evaluate expressions. This means 
that if the PC-2 tries to INPUT a numeric variable and the user 
enters something besides a nice simple number, the PC-2 will 
try to calculate a numeric value for whatever was entered, 
instead of declaring an error. 

For example, if SQR(Y) was entered as numeric input in 
response to 'INPUT "ENTER X"; X' for most computers they 
would think something like "Hey, that stuff isn't numbers!" 
and would declare an error. The PC-2 will evaluate that input 
as a BASIC expression: the square root of Y. It will call up 
whatever Y is equal to, take the square root, and assign that 
computed value to the input variable. 

This is REALLY powerful. Among other things, you can 
enter oddball numbers (like SQR(2) or V3) very accurately and 
easily, instead of having to remember and then type 
1.414213562 and .333333333. 

The disadvantage of all this is that the PC-2 can't detect 
"garbage" input. If you enter "GROWRP" as a numeric value for 
most computers, they'll spit it out; but the PC-2 will try to figure 
out what it all means. (In this case, it would assign a numeric 
value from the variable GR.) 

Incidentally, if what you enter is REALLY garbage, the PC-2 
will tell you: ERROR 1 will be displayed. Press (CLEAR) to 
erase the error message and try again. JH 
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RA Account 



Harold R. Wright 

2900 Powerline Road, Lot 39 

Haines City, FL 33844 



Here is a simple program for the pocket computer. The 
program is used for estimating the value of an I.R.A. account 
with equal yearly deposits. Press (shft) and QD. Then 
answer the questions on the display. Interest may be com- 
pounded for 1 to 365 times per year. The print out shows the 
value for each year up to the number of years requested. 

I.R.A. ACCOUNT 
$2000. DEPOSIT 
12% INTEREST 
COMPOUNDED 4. 
TIMES PER YEAR 
FOR 5. YEARS 



YEAR 


BALANCE 


1. 




$2251.02 


2. 




$4784.56 


3. 




$7636.08 


4. 




$10845.49 


5. 




$14457.71 




U 


"C" 

: CLEAR 

: PRINT "I.R.A. ACCOUNT" 

: PRINT " " 




20 


INPUT "DEPOSIT/YEAR $"; X, "% INTEREST?"; 
COMPOUNDED / YEAR"; Z 




30 


INPUT "NO. OF YEARS?"; V 




40 


PRINT "$"; X; " DEPOSIT " 
: PRINT Y; "%INTEREST" 




50 


PRINT "COMPOUNDED "; Z 

: PRINT "TIMES PER YEAR" 
: PRINT "FOR "; V; " YEARS" 




60 


PRINT " " 




70 


PRINT "YEAR BALANCE" 




80 


PRINT " " 




90 


FOR U=l TO V 




m 


W=(l+Y/100zrZ*(W+X) 
: T=INT (100W+.5)/100 



"# 



110 PRINT U; ' 
: NEXT U 

120 PRINT " ' 
: PRINT ' 
: PRINT ' 

130 END 



S"; T 






GMT Converter 



Charles J. Blatt 
916 Melrose Street 
New Lenox, IL 60451 



Here is a PC-2 program that will convert EST, CEN, MNT, 
or PAC to Greenwich Mean Time or it will convert Greenwich 
Mean Time to EST CEN, MNT or PAC. 



10 PAUSE "<_24-HR_GMT_C0NVERTER_>" 

: CLEAR 
20 INPUT "WANT TO OR FROM GMT?_";Z$ 
30 INPUT "TIME BEING CONVERTED: _";B 
40 PAUSE "YOUR TIME ZONE" 
50 INPUT "IS: EST-CEN-MNT-PAC: _";A$ 
60 IF A$="EST" LET C=5 
70 IF A$="CEN" LET C=6 



80 IF A$="MNT" LET C=7 
90 IF A$="PAC" LET C=8 
100 IF ZS=" FROM " T.150 
110 D=B+C 

: PAUSE "THE TIME IS: " 

: BEEP 2 
120 IF D>24 LET D=D-24 
130 PRINT USING "###.##"; D;" 
140 GOTO 20 
150 D=B+(24-C) 

: PAUSE "THE TIME IS: " 

: BEEP 2 
160 IF D>24 LET D=D-24 
170 PRINT USING "###.##"; D ;"_ _ 
180 GOTO 20 

Enter time as: 12.45 or 1.25, etc. 



GMT" 



";a$ 



J3 



X/Y Graph 

David Baker 
3280 Turgot Circle 
Evendale, OH 45241 

Rectangular Coordinate System Graphics Subroutine: 

A most common need of business, science, and engi- 
neering problem solvers is to be able to display computation 
results on a rectangular coordinate system. With the TRS-80 
Pocket Computer PC-2, and printer interface, such a task can 
be nicely accomplished for report presentation within the 
framework of an eight and one-half inch boundary. 

The PC-2 BASIC subroutine listing (figure 2) performs 
the task of graphics display of a rectangular ordinate- 
abscissa system with the following features: 

1 . Ordinate and abscissa numerical graduations are au- 
tomatically scaled to accommodate the largest 'X' and 
T value outputs to be displayed. 

2. Graduation and scaling presentations are conditioned 
for optimum display size, with room to spare for aside 
data statements. 

Prior to subroutine execution, the following variable must 
be defined by the mainline program: 

1. YM; (Y-axis maximum value). Maximum computation 
value to be displayed, 'Y' ordinate. 

2. XM; (X-axis maximum value). Maximum computation 
value to be displayed, 'X' abscissa. 

In addition to program execution, a call-up of subroutine 
variables 'YD' and 'XD' will reveal axis numerics, denomina- 
tor scaling factors. Whole value factors were introduced as a 
means to optimize overall presentation of axis numbers. 

YD = 'Y' ordinate axis self scale divisor value 

XD = 'X' abscissa axis self scale divisor value 

Multiplication of 'X' or T axis values displayed by 1/YD 
or 1/XD, where appropriate, will give rise to actual axis 
values. 

Coordinate cursor locating within the envelope of the 
displayed rectangular system (cartesian system) can be sim- 
ply accomplished by the execution of the line function: 

GLCURSOR (Y *1 98/01 ,-X*500/A1) 

where: 'Y' = Y axis coordinate position 
'X' = X axis coordinate position 

NOTE: This program uses three character variable 
names. The PC-2 only recognizes the first two characters. To 
use this routine, change 830 to RETURN. 

500 X1=YM, YD=1, Y2=YM 

501 IF Y2<99999 GOTO 505 
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502 YD=YD/10, Y2=Y2/10, X1=X1/10 

503 GOTO 501 
505 GOTO 585 
510 GRAPH 

515 GLCURSOR (0, 0) 

: COLOR 
520 GLCURSOR (18, 0) 

: SORGN 
525 LINE -(198, 0) 
530 GLCURSOR (0, 0) 
535 FOR XA1=0 TO 190 STEP 10 
540 GLCURSOR (XAl , 0) 
545 LINE -(XAl, 5) 
550 GLCURSOR (XAl, 40) 
555 CSIZE 1 
560 ROTATE 1 
565 01=XA1*SF1 

570 LPRINT USING "######"; 01 
575 NEXT XAl 
580 GOTO 670 
585 IF X1=0 THEN 660 
590 IF X1M.9 THEN 606 
595 X1=X1*100 
600 YD=YD*100 

605 GOTO 590 

606 IF Xl>10 GOTO 610 

607 X1=X1*10 

608 YD=YD*10 

610 XL1=190, SFl=.l 

615 IF X1>SF1*XL1 GOTO 625 

620 GOTO 635 

625 SF1=SF1*10 

630 GOTO 615 

635 IF SFl=.l GOTO 510 

640 SF1=SF1/10 

645 SF1-SF1+.1 

650 IF XK=SF1*XL1 GOTO 510 

655 GOTO 645 

660 PRINT "ILLEGAL ORDINATE MAXIMUM" 

670 Y1=XM, XD=1, X2=XM 

671 IF X2<999 GOTO 675 

672 XD=XD/10, Y1=Y1/10, X2=X2/10 

673 GOTO 671 
675 GOTO 740 

680 GLCURSOR (0, 0) 

685 ROTATE 

690 LINE -(0, -500) 

695 GLCURSOR (0, 0) 

700 FOR YA1=0 TO 500 STEP 10 

705 GLCURSOR (0, -YAl) 

710 LINE -(1, -YAl) 

715 GLCURSOR (-24, -YAl) 

720 Al=YAl*SF2 

725 LPRINT USING "####"; Al 

7 30 NEXT YAl 

735 GOTO 825 

740 IF Y1=0 THEN 815 

745 IF Yl>5 THEN 761 

750 Y1=Y1*100 

755 XD=XD*100 

7 60 GOTO 745 

761 IF Yl>25 GOTO 765 

762 Y1=Y1*10 

763 XD=XD*10 

765 YL1=500, SF2=.l 

770 IF Yl>SF2*YLl GOTO 780 

775 GOTO 790 

780 SF2=SF2*10 

785 GOTO 770 

790 IF SF2=.l GOTO 680 

795 SF2=SF2/10 

800 SF2=SF2+.l 

805 IF Yl<SF2*YL.l GOTO 680 

810 GOTO 800 

815 PRINT "ILLEGAL ABCISSA MAXIMUM" 

825 GLCURSOR (0, 0) 

830 STOP 



Resistors 

Charles M. MacLeod 
10 North Crane Avenue 
Taunton, MA 02780 

Here is a program for the Pocket Computer (PC-2) that 
thought your readers might enjoy. 

1 GOSUB 3000 

10 GRAPH 

20 GLCURSOR (0, -10) 

: SORGN 
30 LINE (0, 0)-(225, 0), 3, 2 
40 GLCURSOR (0, 0) 
TEXT 
CSIZE 4 
LF 1 
45 COLOR 1 

50 LPRINT "Parallel" 
60 LPRINT "Resistors" 
70 GRAPH 

: GLCURSOR (0, 20) 

: SORGN 
80 LINE (0, 0)-(225, 0), 3, 2 
90 GLCURSOR (0, -100) 

: SORGN 
100 LINE (0, 0)-(50, 0)-(50, 25)-(150, 25), 0, 
1000 REM 

1010 FOR X=75 TO 130 STEP 5 
1020 GLCURSOR (X, 30) 
1040 LINE (X, 35)-(X, 15) 
1050 NEXT X 
1060 GLCURSOR (50, 0) 

1070 LINE (50, 0)-(50, -25)-(150, -25)-(150, 25) 
1080 GLCURSOR (150, 0) 
1090 LINE (150, 00)-(200, 0) 
2000 FOR X=75 TO 130 STEP 5 
2010 GLCURSOR (X, -30) 
2030 LINE (X, -35)-(X. -15) 
2040 LINE (X, -35)-(X, -15) 
2050 NEXT X 
2060 GLCURSOR (55, 45) 
CSIZE 2 
COLOR 3 

LPRINT USING #####.##"; Rl ; USING ; " ohms" 
2070 GLCURSOR (55, -55) 
CSIZE 2 
COLOR 3 

LPRINT USING "####.##"; R2; USING ; " ohms" 
2080 GLCURSOR (0, -175) 

: SORGN 

: COLOR 1 
2085 TEXT 

: USING "###.##" 
2090 LPRINT "Rl=" ; Rl ; "ohms" 

: LF 1 
2100 LPRINT "R2="; R2; "ohms" 

: LF 1 
2110 LPRINT "TR="; TR ; "ohms" 
2120 LF 2 
2130 GRAPH 

2140 LINE (0, 0)-(225, 0), 3, 2 
2150 TEXT 

: CLEAR 

: GOTO 1 
3000 INPUT "Rl="; Rl , "R2=" ; R2 
3010 TR=1/(((R1+R2)/(R1*R2))) 
3012 WAIT 

: USING "####.##" 
3015 PRINT "TOTAL RESISTENCE=" ; TR 
3020 RETURN J 
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Dennis Tanner 

This program is designed to let you edit material on your 
Color Computer Disks. T3e aware that the process of editing 
material could render that material (or the entire diskette) 
unusable. If you don't know what you are editing, or what the 
results should be, DON'T EDIT IT! 

Enter values for the Drive, Track, and Sector which you 
wish to see and/or modify. 

The contents of the sector are displayed in Hex on the left 
side of the screen and in ASCII on the right side of the screen. 

Use the CD and CzD keys to page forward and back on 
the disk. 

Press GD to select another Drive, Track, and Sector. 

Each sector is displayed in two parts. That is it takes two 
screens to show each sector. The right side of the screen 
gives you information on the current Drive, Track, Sector, and 
Part. 

When the contents of the sector you wish to modify are 
shown, type QyD to get into the modify mode. 

In the modify mode: 

Arrow keys move "current location" number around on 
the screen. 

To modify the current location, type the new hex value. 

To work with ASCII values instead of Hex, type 
(sh i f t^ F 7 "). You can now modify the sector by typing 
ASCII values. If you wish to return to entering Hex values, use 

(SHIFT ) {=). 



Press Center) to save the changes to disk. 
Press ( b R e a k~ ) to exit. 

5 'WRITTEN BY DENNIS TANNER 

10 'OKZAP 05/12/82 

11 PCLEAR 1 

: CLEAR 1000 
: GOTO 100 



15 CLS 



PRINT @ 14, "OKZAP" 
RETURN 

, S, A$, B$ 



20 DSKI$ D, T 
: RETURN 
100 GOSUB 15 
PRINT 

INPUT "DRIVE"; D 
INPUT "TRACK"; T 
INPUT "SECTOR"; S 
110 GOSUB 20 
200 CLS 

GOSUB 600 
PRINT @ 447 , "1"; 
FOR J=0 TO 15 
FOR K=l TO 8 

A=ASC(MID$(A$, J*8+K, D) 
B=INT(A/16) 
C=A-B*16 

IF B>9 THEN B=B+7 
210 IF C>9 THEN C=C+7 
215 H$=CHR$(B+48)+CHR$(C+48) 
217 IF A>31 THEN PRINT @ J*32+K+21 , CHR$(A); 

PRINT @ J*32+K+21, "."; 
220 PRINT @ J*32+K*3-2-INT(K/2), H$; 

: NEXT K, J 
300 I$=INKEY$ 

: IF 1$="" THEN 300 
310 IF I$="; " MEN GOTO 400 ELSE IF 1$="-" 
ELSE IF I$="J" THEN 100 ELSE IF I$="M" 
: GOSUB 800 



ELSE 



THEN 320 
THEN FL=0 



: GOTO 300 ELSE 300 
320 S=S-1 

IF S=0 THEN S=18 
T=T-1 

IF T=-l THEN T=0 
GOTO 300 
330 GOSUB 20 
400 CLS 

GOSUB 600 
PRINT @ 447, "2"; 
FOR J=0 TO 15 
FOR K=l TO 8 

A=ASC(MID$(B$, J*8+K, D) 
B=INT(A/16) 
C=A-B*16 

IF B>9 THEN B=B+7 
410 IF C>9 THEN C=C+7 
415 H$=CHR$(B+48)+CHR$(C+48) 
417 IF A>31 THEN PRINT @ J*32+K+21, CHR$(A); ELSE 

PRINT @ J*32+K+21, "."; 
420 PRINT <? J*32+K*3-2-INT(K/2), H$; 

: NEXT K, J 
500 I$=INKEY$ 

: IF 1$="" THEN 500 
510 IF I$="; " THEN 550 ELSE IF I$="M" THEN FL=1 
: GOSUB 800 
: GOTO 500 
515 IF I$="J" THEN 100 
520 IF 1$="-" THEN 200 ELSE 500 
550 S=S + 1 

: IF S=19 THEN S=l 
: T=T+1 
560 GOTO 110 
600 PRINT @ 31 , "D"; 

PRINT @ 159 , "T"; 
PRINT @ 287 , "S"; 
PRINT @ 62, D; 

T$=RIGHT$(STR$(T) , LEN(STR$(T) ) -1 ) 
FOR J=l TO LEN(T$) 
PRINT @ J*32+159, MID$(T$, J, 1) 
NEXT J 

S$=RIGHT$(STR$(S) , LEN(STR$ (S ) )-l ) 
FOR J=l TO LEN(S$) 
PRINT @ J* 32+287, MID$(S$, J, 1); 
NEXT J 
605 PRINT (3 415, "P"; 
610 RETURN 
800 I$=INKEY$ 
V=0 
J=0 
K=l 
805 LO=V*32+J*5 

: PRINT (3 LO, RIGHT$(STR$(K) , 1); 
810 I$=INKEY$ 

: IF 1$="" THEN 810 ELSE IF I$=CHR$(13) THEN 

PRINT @ LO, " "; 

: DSKO$ D, T, S, A$ , BS 

: RETURN 

815 IF I$=CHR$(93) THEN 900 
820 I=ASC(I$) 

: IF 1=9 AND K=l THEN K=3 

: GOTO 805 ELSE IF 1=9 AND K=3 AND J<3 THEN 
PRINT @ LO, " "; 
K=l 
J=J + 1 

GOTO 805 ELSE IF 1=9 AND K=3 AND J=3 AND V<15 
THEN PRINT @ LO , " "; 
V=V+1 
J=0 
K=l 

GOTO 805 
830 IF 1=8 AND K=3 THEN K=l 

: GOTO 805 ELSE IF 1=8 AND K=l AND J>0 THEN 
PRINT @ LO, " "; 
J=J- 1 
K=3 
GOTO 805 ELSE IF 1=8 AND K=l AND J=0 AND V>0 
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THEN PRINT @ LO, " "; 

J=3 

V=V-1 

K=3 

GOTO 805 

840 IF 1=10 AND V<15 THEN PRINT @ LO, " "; 
: V=V+1 
: GOTO 805 ELSE IF 1=94 AND V>0 THEN PRINT @ LO, 

tl II . 

: V=V-1 

: GOTO 805 
850 IF NOT(I>47 AND K58) AND NOT(I>64 AND K71) THEN 

805 ELSE IF I>31 THEN PRINT @ LO+K, 1$; ELSE 

STOP 

: PRINT @ LO+K, "."; 
855 P1$=I$ 

: K=K+1 

: PRINT @ LO, RIGHT$(STR$(K) , 1); 
860 I$=INKEY$ 

: IF 1$="" THEN 860 ELSE I=ASC(I$) 

: IF K48 OR (I>57 AND K65) OR I>70 THEN 860 
870 PRINT @ LO+K, 1$; 
P1$=P1$+I$ 
Pl=VAL("&H"+Pl$) 
IF FL=0 THEN MID$(A$, V*8+J*2+K/2)=CHR$(P1 ) 

ELSE MID$(B$, V*8+J*2+K/2)=CHR$(P1) 
880 IF Pi>31 THEN PRINT @ V*32+J*2+K/2+21 , CHR$(Pl); 

ELSE PRINT @ V*32+J*2+K/2+21, "."; 
890 IF K=2 THEN K=3 

: GOTO 805 ELSE IF K=4 AND J<3 THEN PRINT @ LO, 

ii ii . 

J=J+1 
K=l 

GOTO 805 ELSE IF K=4 AND J=3 AND V<15 THEN 
PRINT @ LO, " "; 
V=V+1 
J=0 
K=l 

GOTO 805 ELSE IF K=4 AND J=3 AND V=15 THEN 
PRINT @ LO, " "; 
V=0 
J=0 
K=l 

GOTO 805 
895 STOP 
900 PRINT @ LO, " "; 

: L=INT(j*2+K/2)+l 
905 PRINT @ V*32+21, RIGHT$(STR$(L) , 1); 
910 I$=INKEY$ 

IF 1$="" THEN 910 ELSE I=ASC(I$) 
IF 1=9 AND L<8 THEN L=L+1 

GOTO 905 ELSE IF 1=9 AND L=8 AND V<15 THEN 
PRINT @ V* 32+21, " "; 
V=V+1 
L=l 

GOTO 905 

915 IF 1=13 THEN PRINT @ V* 32+21 , " "; 
: DSKO$ D, T, S, A$, B$ 
: RETURN 
920 IF 1=8 AND L>1 THEN L=L-1 

: GOTO 905 ELSE IF 1=8 AND L=l AND V>0 THEN 
PRINT @ V*32+21, " "; 
V=V-1 
L=8 

GOTO 905 

930 IF 1=94 AND V>0 THEN PRINT @ V*32+21 , " "; 
: V=V-1 

: GOTO 905 ELSE IF 1=10 AND V<15 THEN PRINT @ 
V* 32+21, " "; 
: V=V+1 
: GOTO 905 
932 IF 1=21 THEN PRINT @ V*32+21 , " "; 
J=INT((L-l)/2) 
K=(L-J*2)*2-1 
GOTO 805 
940 IF K32 OR I>90 THEN 905 ELSE PRINT @ V*32 + 21+L, 

i$; 



: IF FL=0 THEN MID$(A$, V*8+L, 1)=I$ ELSE IF 
FL=1 THEN MID$(B$, V*8+L, 1)=I$ 
942 X=INT(I/16) 
: Y=I-X*16 
: IF X>9 THEN X=X+7 

944 IF Y>9 THEN Y=Y+7 

945 Q$=CHR$(X+48)+CHR$(Y+48) 

: PRINT (3 V*32+(L-l)*3+l-INT(L/2), Q$; 
950 IF L<8 THEN L=L+1 ELSE IF L=8 AND DV<15 THEN 

PRINT (§ V*32 + 21 ," "; 

: L=l 

: V=V+1 
990 GOTO 905 
10000 GOTO 10000 
20000 I$=INKEY$ 

: IF 1$ = "" THEN 20000 ELSE PRINT TI$;ASC(I$) 

: GOTO 20000 
30000 INPUT L 

: PRINT (L-l)*3+l-INT(L/2) 

: GOTO 30000 m 



Ashok Basargekar 

1423 North Cleveland Street 

Orange, CA 92667 



Thanks to Tomas Rokicki, for helping me to learn 
the 6809 Assembly Language, with the use of his 6809 
Disassembler program in the Product Line Manager's 
News of November 1981 Issue of the Microcomputer 
News. I have used his program to study several simple 
Assembly Language programs written for the Color 
Computer. Many a time, while using his program I came 
across an "OM ERROR" message on the screen. But not any 
more. When I bought a Disk Drive for my Color Computer, I 
created a separate Direct Access Disk File for all the Data in 
his Program. I gave this file the name "SUFFIX.DAT". To 
create this file on the Disk, I used the listing no. 2 given below. 

I deleted all the DATA statements this way from his pro- 
gram. Next thing I had to do was, simply access my Disk File 
for the 6809 code, by refining his Disassembler program. I 
changed few lines here and there, and finally came up with 
following listing no.1 for my "EDIT ASM.BAS" program. The 
program can be used for disassembling as well as editing 
any machine code. For the prompt "ENTRY ADDRESS" 
enter the decimal address or Hex address with a pre-fix "H". 
In the EDIT mode the code appears with a Left Arrow in front 
of the line. If you want to change the code, type the new 
machine code and (enter ). The typed machine code with 
its 6809 equivalent will appear on the next line. If it is correct, 
press either the UP or the DOWN ARROW. Otherwise you 
may enter any other desired machine code. By pressing dD 
you can go backward or forward to any other address. By 
pressing the key C2D, you can exit from the EDIT or the 
DISASSEMBLER mode. I am using this method to write my 
Assembly Language sub-routines very successfully. 



10 CLS 



PRINT @33, "1:6809 EDITOR" 

PRINT @65, "2:6809 DISASSEMBLER" 

PRINT 

PRINT "SELECT 1 OR 2" 

INPUT QQ 

IF QQ=2 THEN INPUT "1: SCREEN 2: PRINTER' 



ZZ 



40 
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20 F$=" CODE. DAT" 

G$="SUFFIX.DAT" 

OPEN "D", #1, F$, 18 

FIELD #1, 18 AS N$ 

OPEN "D", #2, G$, 6 

FIELD #2, 6 AS 1$ 
30 INPUT "ENTRY ADDRESS (DEFAULT IS 40999) "; A$ 
: IF A$="" THEN PI=40999 ELSE IF MID$(A$, 1, 
1)="H" THEN PI=VAL("&"+A$) ELSE PI=VAL(A$) 
40 BY=PEEK(PI)+1 

50 IF BY<>17 AND BY<>18 THEN TE=0 
GET #1, BY 
BYS=N$ 
TY=VAL(BY$) 
BYS=MID$(BY$, 2) 
IF LEFT$(BY$, 1)=" " THEN 110 ELSE 70 

51 TE=1 
BY=PEEK(PI+1)+1 
GET #1, BY 
BY$=N$ 

X=INSTR(BY$, "/") 

IF X=0 THEN 110 ELSE BY$=MID$(BY$ , X+l) 
IF PEEK(PI)=18 THEN X=INSTR(X, BY$, "/") 
IF X=0 THEN 110 ELSE 200 

60 TY=VAL(BY$) 

: BY$=MID$(BY$, 2) 
70 ON TY+1 GOSUB 350, 180, 210, 220, 290, 300, 310, 
320, 330, 340 
: GOTO 120 
80 IF B$<>"C" THEN B$=INKEY$ 

: IF B$=" M THEN 80 
90 IF B$="Q" THEN CLOSE 

: END 
100 N=0 

: GOTO 120 
110 OP$="ERROR" 
: BY$="" 
: LN=1 
120 IF INSTR(1, BY$, "/") THEN BY$=LEFI'$(BY$ , 

INSTR(1, BY$, '7")-D 
130 S$="" 

N=N+1 

IF N>13 THEN 80 ELSE A$=STRING$( 15 , 32) 
MID$(A$, 1, 4)=HEX$(PI) 
FOR X=l TO LN 
GOSUB 460 

MID$(A$, 4+2*X, 2)=R$ 
NEXT 
140 BY$=LEFT$(BY$, 4) 

A$=A$+BY$+" "+OP$ 
IF QQ=2 THEN PI=PI+LN 
PRINT A$ 

IF ZZ=2 THEN PRINT #-2, A$ 

GOTO 40 ELSE 40 ELSE PRINT A$; " "; CHR$(95); 
N=0 
150 Q$=INKEY$ 

: IF Q$="" THEN 150 ELSE IF Q$="~" OR 
Q$=CHR$(10) THEN PI=PI+LN 
: PRINT CHR$(13); 

: GOTO 40 ELSE IF Q$=CHR$(13) THEN 170 ELSE IF 
Q$="@" THEN PRINT CHR$(13); 
:'GOTO 30 ELSE IF Q$="Q" THEN CLOSE 
: END 
160 S$=S$+Q$ 

: PRINT Q$; 
: GOTO 150 
170 LN=LEN(S$)/2 

FOR X=l TO LN 

POKE PI+X-1, VAL("&H"+MID$(S$, 2*X- 1 , 2)) 
NEXT X 

PRINT CHR$(13); 
GOTO 40 
180 LN=2+TE 

: OP$=HEX$(PEEK(PI+TE+l)) 
: RETURN 
190 LN=4+TE 
: X=TE 



TE=TE+1 
GOSUB 290 
TE=X 

GOTO 270 
200 BY$=MID$(BY$, X+l) 

: GOTO 60 
210 LN=1+TE 

: OP$="" 
: RETURN 
220 BY=PEEK(PI+TE+1) 

IF BYM27 THEN 230 ELSE LN=2+TE 
GOSUB 470 
BY=3l AND BY 

IF BY>15 THEN OP$=R$+"-"+HEX$( 32-BY ) 
RETURN ELSE OP$=R$ + "+" + HEX$(BY) 
RETURN 
230 GOSUB 470 

BY=31 AND BY 
GET #2, ((15 AND BY)+1) 
OP$=l$ 
GOSUB 500 

240 IF LEFT$(OP$, L)="X" THEN 190 ELSE IF LEFT$(OP$, 
1 )=" " IHEN OP$="ERROR" 
BY$="" 
LN=1 

RETURN ELSE LN=2+TE+VAL(OP$ ) 

IF VAL(OP$)=0 THEN 270 ELSE IF VAL(OP$)=2 THEN 
260 ELSE OPS=MID$(OP$, 2) 
BY=PEEK(PI+2+TE) 

IF BY<128 THEN OP$=OP$ + "+" + HEX$(BY) 
GOTO 27 
250 OP$=OP$ + "-" + HEX$(256-BY) 

: GOTO 270 
260 BY=PEEK(PI+2+TE)*256+PE£K(PI+3+TE) 
: OP$=MID$(OP$, 2) 

: IF BYX32767 THEN OP$=OP$ + "-" + 
HEX$(65536-BY) ELSE OP$=OP$ + "+" + HEX$(BY) 
270 IF INSTR(1, OP$, "R")<>0 THEN MIDS(OP$, INSTR( 1 , 

OP$, "R"), D = R$ 
280 IF 16 AND PEEK(PI+TE+1 ) THEN OP$=" ("+OP$+")" 

: RETURN ELSE RETURN 
290 LN=3+TE 

: OP$=HEX$(PE£K(PI+TE+l)*256+PEEK(PI+TE+2)) 
: RETURN 
300 GOSUB 180 

: OP$="#"+OP$ 
: RETURN 
310 GOSUB 290 

: OP$="#" + OP$ 
: RETURN 
320 LN=2 

BY=PEEK(PI+1) 

IF BY>127 THEN OP$=HEX$(PI-254+BY) 
RETURN ELSE OP$=HEX$(PI+2+BY) 
RETURN 
330 LN=3+TE 

BY=PEEK(PI+l+TE)*256+PEEK(PI+2+TE) 
IF BY>32767 THEN OP$=HEX$(PI+LN-65536+3Y) 
RETURN ELSE OP$=HEX$(PI+LN+BY) 
RETURN 
340 LN=2 

BY=PEEK(PI+1) AND 15 
GOSUB 440 
OP$=R$ 

BY=(PEEK(PI+1) AND 240)/16 
GOSUB440 
OP$=R$+","+OP$ 
RETURN 
350 LN=2 

BY=PEEK(PI+1) 
OP$= ,m 

IF (128 AND BY) THEN OP$="PC" 
360 IF (64 AND BY) THEN IF MID$(BY$, 4)="U" THEN 

OP$=OP$+",S" ELSE OP$=OP$+",U" 
370 IF (32 AND BY) THEN OP$=OP$+",Y" 
380 IF (16 AND BY) THEN OP$=OP$+",X" 
390 IF (8 AND BY) THEN OP$=OP$+" ,DP" 
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400 
410 
420 
430 

440 



450 
460 



470 



480 
500 



51! 



IF (4 AND BY) THEN OP$=OP$+",B" 

IF (2 AND BY) THEN OP$=OP$+" ,A" 

IF (1 AND BY) THEN OP$=OP$+" ,CC" 

IF MID$(OP$, 1, 1)="," THEN OP$=MID$(OP$ , 2) 
: RETURN ELSE RETURN 

IF BY=0 THEN R$="D" ELSE IF BY=1 THEN R$="X" ELSE 
IF BY=2 THEN R$="Y" ELSE IF BY=3 THEN R$="U" 
ELSE IF BY=4 THEN R$="S" ELSE IF BY=5 THEN 
R$="PC" ELSE IF BY=8 THEN R$="A" ELSE IF BY=9 
THEN R$="B" ELSE IF BY=10 THEN R$="CC" ELSE IF 
BY=11 THEN R$="DP" ELSE R$="??" 

RETURN 

R$=HEX$ (PEEK(PI+X- 1 ) ) 
: IF LEN(R$)=1 THEN R$="0"+R$ 
: RETURN ELSE RETURN 

X=(BY AND 96)/32 
: IF X=0 THEN R$="X" ELSE IF X=l THEN R$="Y" 
ELSE IF X=2 THEN R$="U" ELSE IF X=3 THEN R$="S" 

RETURN 

IF LEN(0P$)=1 THEN RETURN ELSE IF RIGHT$(OP$, 
1)=" " THEN 0P$= LEFT$(OP$, LEN(0P$)-1) 
: GOTO 500 

RETURN 



TO CREATE SUFFIX.DAT DISK FILE OF 6809 CODE 

10 CLS 

: PRINT "INITIALIZATION" 
20 CLEAR 1000 

DIM N$(255), I $ C 1 5 ) 
FOR X=0 TO 25 5 
READ N$(X) 
NEXT 

FOR X=0 TO 15 
READ I$(X) 
NEXT 

30 DATA 1NEG, , , 1C0M, 1LSR, , 1R0R, 1ASR 
35 DATA 1ASL, 1R0L, 1DEC, , 1INC, 1TST, 1JMP, 1CLR 
40 DATA P, P, 2N0P, 2SYNC, , , 8LBRA, 8LBSR, , 2DAA 
45 DATA 50RCC, , 5ANDCC, 2SEX, 9EXG, 9TFR 
50 DATA 7BRA, 7BRN/8LBRN, 7BHI/8LBHI, 7BLS/8LBLS 
52 DATA 7BHS/8LBHS, 7BLO/8LBLO, 7BNE/8LBNE, 

7BEQ/8LBEQ 
55 DATA 7BVC/8LBVC, 7BVS/8LBVS, 7BPL/8LBPL, 

7BMI/8LBMI 
58 DATA 7BGE/8LBGE, 7BLT/8LBLT, 7BGT/8LBGT, 

7BLE/8LBLE 
60 DATA 3LEAX, 3LEAY, 3LEAS , 3LEAU, 0PSHS, 0PULS , 
0PSHU 

2RTS, 2ABX, 2RTI, 2CWAI 
2SWI/2SWI2/2SWI3 
, 2C0MA, 2LSRA, , 2R0RA 

2DECA, , 2INCA, 



65 DATA 0PULU, 

68 DATA 2MUL, 

70 DATA 2NEGA, 

7 5 DATA 2ASRA, 2 AS LA, 2R0LA 

2CLRA 
80 DATA 2NEGB, 
85 DATA 2ASRB, 



, , 2C0MB, 2LSRB, , 
2ASLB, 2R0LB, 2DECB : 



2R0RB 
, 2INCB. 



2TSTA, 



2TSTB. 



2CLRB 
90 DATA 3NEG, 
95 DATA 3ASL, 
100 DATA 4NEG 



, , 3COM, 3LSR, , 3R0R, 3ASR 
3R0L, 3DEC, , 3INC, 3TST, 3JMP, 3CLR 
, , 4C0M, 4LSR, , 4R0R, 4ASR 
105 DATA 4ASL, 4ROL, 4DEC, , 4INC, 4TST, 4JMP, 4CLR 
110 DATA 5SUBA, 5CMPA, 5SBCA, 6SUBD/6CMPD/6CMPU , 
5ANDA, 5BITA 

115 DATA 5LDA, , 5E0RA, 5ADCA, 50RA, 5ADDA, 

6CMPX/6CMPY/6CMPS 

116 DATA 7BSR, 6LDX/6LDY, , 1SUBA, 1CMPA, 1SBCA 

117 DATA 1SUBD/1CMPD/1CMPU, 1ANDA, 1BITA, 1LDA, 1STA 
120 DATA 1EORA, 1ADCA, 10RA, 1ADDA 

122 DATA lCMPX/lCMPY/lCMPS, USR, 1LDX/1LDY, 

1STX/1STY 
130 DATA 3SUBA, 3CMPA, 3SBCA, 3SUBD/3CMPD/3CMPU 
132 DATA 3ANDA, 3BITA, 3LDA, 3STA, 3E0RA 

135 DATA 3ADCA, 30RA, 3ADDA, 3CMPX/3CMPY/3CMPS 

136 DATA 3JSR, 3LDX/3LDY, 3STX/3STY, 4SUBA, 4CMPA 
140 DATA 4SBCA, 4SUBD/4CMPD/4CMPU , 4ANDA, 4BITA, 

4LDA, 4STA 
145 DATA 4E0RA, 4ADCA, 40RA, 4ADDA 



146 DATA 4CMPX/4CMPY/4CMPS, 4JSR, 4LDX/4LDY, 

4STX/4STY 
150 DATA 5SUBB, 5CMPB, 5SBCB, 6ADDD, 5ANDB , 5BITB 

152 DATA 5LDB, , 5E0RB, 5ADCB, 50RB, 5ADDB 

153 DATA 6LDD, , 6LDU/6LDS, , 1SUBB, 1CMPB 

160 DATA 1SBCB, 1ADDD, 1ANDB, 1BITB, 1LDB, 1STB 

162 DATA 1E0RB, 1ADCB, 10RB, 1ADDB, 1LDD, 1STD 

163 DATA 1LDU/1LDS, 1STU/1STS 

170 DATA 3SUBB, 3CMPB , 3SBCB, 3ADDD, 3ANDB , 3BITB 

172 DATA 3LDB, 3STB , 3EORB , 3ADCB , 30RB , 3ADDB 

17 3 DATA 3LDD, 3STD , 3LDU/3LDS, 3STU/3STS 

180 DATA 4SUBB, 4CMPB , 4SBCB, 4ADDD, 4ANDB , 4BITB 

182 DATA 4LDB, 4STB , 4EORB , 4ADCB , 40RB , 4ADDB , 4LDD 

184 DATA 4STD, 4LDU/4LDS, 4STU/4STS 

190 DATA R+, R++, -R, ~-R, R+0 , R+ACCB 

192 DATA R+ACCA, , lR, 2R, , R+ACCD, IPC, 2PC, , X 

200 OPEN "D", #1, "CODE. DAT", 18 

: FIELD #1, 18 AS CODE$ 
210 FOR X=0 TO 255 

LSET CODE$=N$(X) 

REC=X+1 

PUT #1 , REC 

NEXT X 

CLOSE #1 
220 OPEN "D", #1, "SUFFIX.DAT", 6 

: FIELD #1, 6 AS SUFFIX? 
2 30 FOR X=0 TO 15 

LSET SUFFIX$=I$(X) 

REC=X+1 

PUT #1 , REC 

NEXT K 

CLOSE #1 J3 



Disk Directory 

Bery Rinaldo 

1860 Robin Hood Avenue 

Titusville, FL 32780 



I recently received the disk system for my 32K Extended 
BASIC Color Computer (with Line Printer VII). After saving 
my first few programs on the disk, I then executed the "DIR" 
command in order to see what I had on the disk. Seeing this, 
my brother and I thought it would be nice to have the directo- 
ries on hard copy for future reference. That conversation 
inspired me to write this 25-line program which lists name, 
extension, and length in granules for each program on the 
disk and also prints the number of free granules left on the 
disk. I hope this will help other users with the same need/ 
problem. 

Thank you for all of your effort in the newsletter, it is well 
appreciated by all of us users. 



100 CLEAR 

: DIM A(67) 
110 !0, 17, 2, B$, A$ 
120 FOR W=l TO 68 
130 A(W-1)=ASC(MID$(B$, W, 1)) 
140 NEXT W 
150 PRINT #-2, TAB(33); "Disk Directory" 

: PRINT #-2 

: Z=0 
160 FOR X=3 TO 11 

17, X, A$(l), A$(2) 
FOR Q=l TO 2 
190 FOR 1=1 TO 128 STEP 32 

200 IF ASC(MID$(A$(Q), 1+11, 1))=255 THEN 320 
210 T$=MID$(A$(Q), I. 8) 
220 FOR V=l TO 8 
230 C=ASC(MID$(T$, V, 1)) 
240 IF C>122 OR C<32 THEN 320 



170 !0 
1 



42 
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250 NEXT V 

260 E$=MID$(A$(Q), 1+8, 3) 

: H=0 
270 S=ASC(MID$(A$(Q), 1 + 13, D) 
280 H=H+1 

: IF A(S)>67 THEN 300 
290 S=A(S) 

: GOTO 280 
300 PRINT #-2, TAB(Z); T$ "/" E$; STR$(H); 
310 Z=Z+16 

: IF Z>66 THEN PRINT #-2 

: Z=0 
320 NEXT I, Q, X 
330 IF Z>0 THEN PRINT #-2 
340 PRINT #-2 

: PRINT #-2, "Free granules left on disk 

!(0) 



Character Recognition 

William Robinson 
457 Main Street 
Newington, CT 061 1 1 



Here is a program for the 4K Color Computer. 

1 'WILLIAM ROBINSON 1982 
5 CLS 

10 PRINT @169, "DAVIDS PROGRAM" 
20 FOR X=l TO 1000 
: NEXT X 

30 CLS 

31 'RESTORE DATA GET NEXT WORD 

32 RESTORE 

34 IF A3=0 THEN 38 
36 FOR X=l TO A3 

: READ A$ 

: NEXT 
38 A3=A3+1 
40 READ A$ 

44 ' Z MUST BE LAST DATA BEFORE SONG DATA 

45 IF A$="Z" THEN 250 
50 FOR X=l TO LEN(A$) 

60 PRINT @169 + (X*2), MID$(A$, X, 1) 

70 NEXT X 

75 GOSUB 2000 

80 FOR X=l TO LEN(A$) 

85 PRINT @201+(X*2), "~" 

87 PRINT @201+((X-1)*2), " "; 

89 GOSUB 2000 

90 B$=INKEY$ 

100 IF B$="" THEN 90 

110 IF B$=MID$(A$, X, 1) THEN 130 

120 SOUND 10, 6 

: GOTO90 
130 FOR Y=l TO 3 
140 SOUND 150, 2 
150 NEXT Y 

160 PRINT @233+(X*2), B$ 
170 NEXT X 
177 GOSUB 2000 
180 GOSUB 1000 

185 RESTORE 

186 FOR X=l TO 7 

: READ A$ 
: NEXT 

187 'LOOP EXIT MUST = # WORDS INCLUDING "Z" 

188 FOR X=l TO 42 

189 READ A 

190 IF X/7=INT(X/7) THEN B=6 ELSE B=3 
19 3 SOUND A, B 

195 NEXT X 
200 GOTO 5 



220 DATA "DAVID", "HOUSE", "DOOR", "DEBBIE", "MOMMY" 
"DADDY" 

'ANY # OF WORDS MAY BE ADDED 
'"Z" MUST BE LAST 
! LINE 186 MUST READ # WORDS 
! "Z" MUST BE BEFORE SONG 
240 DATA "Z" 
250 END 
260 DATA 89, 89, 147, 147, 159, 159 

133, 133, 125, 125, 108, 108 
147, 147, 133, 133, 125, 125 
, 147, 147, 133, 133, 125, 125 
300 DATA 108, 89, 89, 147, 147, 159, 159 
310 DATA 147, 133, 133, 125, 125, 108, 108, 89 
1000 CLS(0) 
1005 FOR X=8 TO 54 



230 
231 
232 
233 



270 DATA 147 
280 DATA 89, 
290 DATA 108, 



1010 


SET (X, 2, 3) 


1015 


SET(X, 28, 3) 


1020 


NEXT X 


1030 


FOR X=2 TO 28 


1040 


SET(8, X, 3) 


1050 


SET(54, X, 3) 


1060 


NEXT X 


1080 


FOR X=18 TO 23 


1090 


FOR Y=6 TO 9 


1100 


SET (X, Y, 4) 


1105 


SET (X+20, Y, 4) 


1110 


NEXT Y, X 


1120 


X=30 




: Y=15 


1130 


SET (X+l, Y, 4) 




: SET(X, Y + l, 4) 


1140 


SET (X, Y, 4) 




: SET (X+l, Y+l, 4) 


1155 


Y=29 3 


1160 


FOR X=0 TO 3 


1170 


PRINT @Y+X, CHR$(191); 


1180 


PRINT @Y+20-X, CHR$(191); 


1190 


Y=Y+32 


1200 


NEXT X 


1210 


FOR X=18 TO 44 STEP4 


1220 


SET (X, 24, 4) 




: SET (X+l, 24, 4) 


1230 


SET (X+2, 25, 4) 




: SET (X+3, 25, 4) 


1240 


NEXT X 


1250 


RETURN 


2000 


AUDIO ON 


2010 


MOTOR ON 


2020 


FOR Z4=l TO 800 




: NEXT Z4 


2030 


MOTOR OFF 


2040 


AUDIO OFF 


2050 


RETURN 


Routine to load text: 


10 ' 


ROUTINE TO LOAD TEXT 


20 ' 


BILL ROBINSON 


30 ' 


457 MAIN ST. 


40 ' 


NEWINGTON CONN. 06111 


50 OPEN "I", #-1, "TEXT" 


55 CLS 


60 FOR X=l TO 15 


70 IF EOF(-l) THEN 100 


80 INPUT #-1, A2$ 


90 PRINT MID$(A2$, 2) 


95 NEXT 


96 PRINT "press enter to cont" 


97 INPUT S$ 


98 GOTO 55 


100 


END 


450 


OPEN "0", #-1, "TEXT" 


460 


CLS 




: PRINT "BEGIN TEXT" 


495 


REM FILL THIS LINE 


497 


A2$='7" 
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498 PRINT "/"; 
500 FOR X=l TO 31 
510 A$=INKEY$ 

512 IF A$="" THEN 510 

513 PRINT A$; 

515 IF A$=CHR$(13)THEN X=35 

: GOTO 540 
520 IF A$=CHR$(10) THEN 680 
525 IF X=27 THEN SOUND 175, 5 
532 IF A$=CHR$(8) THEN GOTO 690 
535 A2$=A2$+A$ 
540 NEXT 

550 PRINT #-1, A2$ 
670 GOTO 495 
680 END 
690 Q=LEN(A2$) 
700 A2$=LEFT$(A2$, Q-l) 
710 X=X~1 

: IF X<1 THEN X=l 
720 GOTO 510 



Notepad Calculator For 
the Color Computer 



ABEC James McCracken 

Abe "C" School 

Nattc Lakehurst, N.J. 08733 



The program runs as follows, the first input is the opera- 
tion to be performed, next are the numbers being worked 
with. The program then supplies the answer and asks if the 
answer is to be saved. If the answer is to be saved, the 
program asks in what position, and asks for a name for the 
value. All this information is then displayed at the bottom of 
the screen. To recall numbers in the memory, simply enter a 
for a number prompt. At this point the program asks which 
number, simply enter the variable number ei. (A(1) = 1) the 
program will then display the value and return to the main 
routine. 



10 '**** NOTE PAD **** 




20 '**** BY **** 




30 '**** jim MCCRACKEN **** 




40 CLS 




: PRINT @ 11, "NOTE PAD" 




50 PRINT @ 320, "A(D" 






PRINT @ 352, "A(2)" 






PRINT @ 384, "A(3)" 






PRINT @ 416, "A(4) M 






PRINT @ 448, "A(5)" 






PRINT @ 480, "A(6) n ; 




60 PRINT @ 324, A$(l) 






PRINT @ 356, A$(2) 






PRINT @ 388, A$(3) 






PRINT @ 420, A$(4) 






PRINT @ 452, A$(5) 






PRINT @ 484, A$(6); 




70 PRINT @ 332, A(l) 






PRINT @ 364, A(2) 






PRINT @ 396, A(3) 






PRINT @ 428, A(4) 






PRINT @ 460, A(5) 






PRINT @ 492, A(6); 




80 PRINT @64, "(+,-,/,*) WHAT ARE WE 


GOING TO DO"; 


90 INPUT B$ 




100 INPUT " FIRST #" ; Cl 




110 IF C1=0 GOTO 280 




120 INPUT "SECOND #" ; C2 




130 IF C2=0 GOTO 320 




140 II 


" B$="+" THEN 180 ELSE IF B$="- 


1 THEN 190 ELSE 



IF B$="/" THEN 200 ELSE IF B$="*" THEN 210 


ELSE 


220 




150 PRINT "ANSWER " C3 




160 PRINT @ 64, ""; 




: INPUT "DO YOU WANT TO SAVE THIS ANS.Y, N' 


'; d$ 


170 IF D$="Y" GOTO 230 ELSE GOTO 10 




180 C3-C1+C2 




: GOTO 150 




190 C3=C1-C2 




: GOTO 150 




200 C3=C1/C2 




: GOTO 150 




210 C3=C1*C2 




: GOTO 150 




220 PRINT "I DON'T UNDERSTAND " B$ " REDO"; 




: INPUT B$ 




: GOTO 140 




230 •**** SAVING ROUTINE **** 




240 INPUT "UNDER WHICH POSITION (Al-6)"; E 




250 INPUT "WHAT NAME"; A$(E) 




260 A(E)=C3 




270 GOTO 10 




280 PRINT @ 128, ""; 




: INPUT "INPUT VAR #" ; V 




290 C1=A(V) 




300 PRINT @128, " FIRST #" Cl 




310 GOTO 120 




320 PRINT @160, "" ; 




: INPUT "INPUT VAR #" ; V 




330 C2=A(V) 




340 PRINT @160 , "SECOND #" C2 




350 GOTO 140 


M 



M 



Homebudget 

Richard G. Neill 

5170 Bramblewood Dr. 

Acworth, GA 30101 



The following is a home budget program. It is in BASIC, 
for the Color Computer, and requires a printer. The program 
asks for your budget period, income, and expenses. There 
are several "fixed" expense entries and then 28 "variable 
expense" categories. As you input the values for the income 
and fixed expenses they are tabulated inside the program. 

The variable expenses are entered and then propor- 
tioned so that their total equals the "spendable" income. 

You are allowed to go through the list as many times as 
you like. After the first time through, as each category is 
presented, you are asked whether to change it and whether 
to freeze it. If you freeze it, you can not change it on the next 
pass through. If you do not input a value for an expense, 
when it is first presented, it will be deleted from subsequent 
passes. After each section is completed, a summary is pre- 
sented on the video. When the variable expense summary is 
presented, any frozen accounts are off-set to the right. After 
all accounts are frozen, you are given the option of a hard 
copy. 

If you select a hard copy your name is printed at the top 
and the report is then printed. 

10 ' ****************************** 

20 ********* HOME BUDGET ********* 

30 '***** GARRY NEILL, MAR 82 ***** 

40 '********** REV 1.0 *********** 

50 ****** THANKS, BILL DIAL ****** 

60 PMODE 

: PCLEAR 1 

70 Q=27 
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V$="###.#" 
W$=" $$#####," 
U$="###" 
80 CLS 

90 DIMD(18), E$(Q), V(Q), F(Q) 
100 PRINT TAB(7) "HOME BUDGETING MODEL" 

: PRINT 
110 DATA SALARY /WAGES, OTHER INCOME, FED INC TAX, 

STATE & LOCAL TAX 
120 DATA SOCIAL SECURITY, UNEMPLOYMENT INS, HEALTH 

INS 
130 DATA LIFE INS, CONTRIBUTIONS, OTHER DEDUCTIONS 
140 DATA RENT/MORTGAGE, LIFE INS, HEALTH INS, HOUSE 

INS 
150 DATA AUTO INS, CAR PAYMENTS, LOAN PAYMENTS, TRASH 

REMOVAL 
160 DATA OTHER FIXED EXP 

170 DATA FOOD, CLOTHING, DRY CLEANING, BARBER 
180 DATA HOME MTC , NATURAL GAS, WATER, ELECTRICITY, 

TELEPHONE 
190 DATA GAS /OIL, AUTO MTC, PARKING, DENTIST 
200 DATA DOCTOR, DRUGS, SCHOOL, ALLOWANCE 
210 DATA CLUBS, LODGES, SPORTS, RESTURANTS 
220 DATA ENTERTAINMENT, BOOKS, SITTERS, NURSERY 
2 30 DATA VACATION SAVINGS, MISC SAVINGS, TITHE, MISC. 
240 PRINT 

: PRINT "SELECT YOUR BUDGETING PERIOD BY NUMBER. 

LATER ON IT WILL BE" 
250 PRINT "EXTENDED TO ONE YEAR." 

: PRINT 
260 PRINT "1- WEEKLY" 

PRINT "2- BIWEEKLY" 

'3- SEMIMONTHLY" 
'4- MONTHLY" 



'TRY AGAIN' 



PRINT 
PRINT 
PRINT 
270 INPUT P 

: IF P>4 THEN PRINT 
: GOTO 270 
280 IF P=l THEN P=52 ELSE IF P=2 THEN P=26 ELSE IF 

P=3 THEN P=24 ELSE IF P=4 THEN P=12 
290 PRINT "ALRIGHT, FIRST LET'S LOOK AT INCOME FOR 

THE PERIOD." 
300 READ A$ 

PRINT A$; " S"; 
INPUT D(0) 
READ A$ 

PRINT A$; " $"; 
INPUT D(l) 
310 TI=D(0)+D(1) 

: PRINT 
320 PRINT 

: PRINT "OK, NOW LET'S LOOK AT PAYCHECK 
DEDUCTIONS." 
: PRINT 
330 FOR J=2 TO 9 
READ AS 
PRINT A$; 
INPUT " $"; D(J) 
TD=TD+D(J) 
NEXT J 
PRINT 

340 PRINT "OK, NOW LET'S LOOK AT FIXED EX- PENSES." 
350 FOR J=10 TO 18 
READ A$ 
PRINT A$; 
INPUT " S"; D(J) 
TF=TF+D(J) 
NEXT J 
360 DF=TD+TF 

: SI=TI-DF 
: S=32 
370 PRINT 

: PRINT "OK, AT THIS TIME OUR TABLE LOOKS LIKE 

THIS:" 
380 ' 

390 ' 
400 PRINT 



410 
420 



430 



440 

450 
460 

470 



480 
490 



500 



510 
520 
530 
540 

550 



560 
570 
580 



590 



TAB(20) "PER." TAB(26) 



PRINT " SPENDABLE INCOME SUMMARY' 
GOSUB 1890 

: PRINT TAB(3) "ACCT. 

"ANNUAL"; 
GOSUB 1890 

PRINT "TOTAL INCOME" TAB(16); 
PRINT USING W$; TI ; 
PRINT TAB(18) 
PRINT USING W$; TI*P 

: PRINT " DED." TAB(8); 
PRINT USING W$; TD*(-1) 
PRINT "FIX. EXP." TAB(4); 

: PRINT USING W$; TF*(-1); 
PRINT TAB(10); 

: PRINT USING W$; DF*(-1); 

: PRINT TAB(5); 
PRINT USING W$; DF*(-1)*P; 

PRINT TAB(ll) " " TAB(19) " " TAB(25) 

n 1 1 

: PRINT "SPENDABLE INCOME"; 
PRINT TAB(16); 

PRINT USING W$; SI; 

PRINT TAB(5); 

PRINT USING W$; SI*P; 
PRINT TAB(19) "=====" TAB(25) "=======" 



610 

620 

630 
640 
650 



660 

670 
680 
690 



700 
710 



720 
7 30 



740 



HOME BUDGETING MODEL" 



GOSUB 1910 

: RO=0 
CLS 

: PRINT "OK, NOW FOR THE FIRST ROUND OF 

VARIABLE EXPENSE. DON'T PINCH" 
PRINT "YOURSELF IN YOUR ESTIMATES" 
PRINT "(WITHIN REASON). LET THE" 
PRINT "COMPUTER HELP YOU REFINE YOUR BUDGET 

LATER ON." 

: PRINT 
FOR J=0 TO Q 
READ E$(J) 
PRINT E$(j); 
INPUT " $"; V(J) 
VT=VT+V(J) 
NEXT J 
RESTORE 

: PRINT 

: PRINT 
PRINT "YOUR BUDGET FOR THE FIRST ROUND 

TOTALED $" VT ", THIS" 
PRINT "COMPARES TO SPENDABLE INCOME OF $" SI 

". WE HAVE PRORATED" 
PRINT "THE DIFFERENCE, $" SI-VT ", OVER" 
PRINT "ALL VARIABLE EXPENSE ACCOUNTS." 
GOSUB 1910 

FOR J=0 TO Q 
V(j)=INT(V(J)/VT*SI) 
NEXT 
VT=SI 
PRINT 
PRINT "NOW WE BEGIN THE BUDGET REFINE- MENT 

PHASE. MAKE AS MANY" 
PRINT "PASSES AS YOU LIKE. AS YOU" 
PRINT "REVIEW EACH ACCOUNT, DECIDE" 
PRINT "WHETHER TO FREEZE IT OR TO LEAVE IT 

FOR ANOTHER PASS." 

: PRINT 
PRINT "HINT: DON'T BE IN A HURRY TO FREEZE AN 

ACCOUNT." 

: PRINT 
PRINT "YOUR TASK IS FINISHED WHEN ALL ACCOUNTS 

ARE FROZEN." 

: PRINT 
GOSUB 1910 
FOR J=0 TO Q 

: PRINT 

: IF V(J)=0 THEN 930 
PRINT E$(J); " $"; V(j) 

: INPUT "CHANGE Y/N"; A$ 
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750 IF L£FT$(A$, 1)="N" THEN 790 ELSE IF LEFT$(A$, 
1)="Y" THEN 770 ELSE IF L£FT$(A$, 1)<>"Y" THEN 
740 
760 GOTO 740 
770 INPUT "REVISED AMOUNT $" ; A 

: IF A<V(J) THEN 790 
780 GOSUB 1930 
790 INPUT "FREEZE Y/N"; B$ 

: PRINT 
800 IF LEFT$(A$, 1 )="Y" AND LEFT$(B$, 1)="Y" THEN 850 
810 IF LEFT$(A$, 1) = "Y" AND LEFT!?(B$, 1)="N" THEN 890 
820 IF LEFT$(A$, 1)="N" AND LEFT$(B$, 1)="N" THEN 930 
830 VT=VT-V(J) 

FT=FT+V(J) 
C=F(J) 
F(J)=V(J) 
V(J)=C 
V(J)=0 
PRINT 

840 PRINT "OK, THE ACCOUNT HAS BEEN FROZEN AT $'* 
F(J) "." 
: GOTO 930 
850 VT=VT-A 

FT=FT+A 
C=A 
A=F(J) 
F(J)=C 
V(J)=0 
FOR K=0 TO Q 

V(K)=INT(V(K)*(SI-FT)/VT) 
NEXT 

VT=SI~FT 
870 PRINT "OK, THE ACCOUNT HAS BEEN FROZEN AT $" F(j) 

", AND THE DIFFERENCE" 
680 PRINT "PRORATED OVER REMAINING ACOUNTS . " 
: PRINT 
: GOTO 930 
890 VT=VT-V(J)+A 

: V(J)=A 
900 FOR K=0 TO Q 

V(K)=INT(V(K)*(SI-FT)/VT) 
NEXT 

VT=SI-FT 
910 PRINT "OK, THE VALUE HAS BEEN CHANGED TO $" A ", 

AND THE DIFFERENCE" 
920 PRINT "PRORATED OVER REMAINING ACOUNTS" 

: PRINT 
930 NEXT J 

PRINT 
R=0 

FOR J=0 10 Q 
IF V(J)=0 THEN R=R+1 
NEXT 

940 IF R<=Q THEN 960 
950 FOR J=0 TO Q 

F(J)=INT(F(J)/FT*SI) 
VT=0 
FT=SI 
GOTO 1340 
960 PRINT "NOW LET'S RECAP VARIABLE EXPENSES 

BEFORE GOING ON TO THE" 
970 PRINT "NEXT ROUND." 
PRINT 
R0=R0+1 
VI =0 
F1 = 
980 FOR J=0 TO Q 

V(J)=INT(V(J)/VT*(SI-FT)) 

NEXT 

VT=SI-FI 
990 ' 
1000 ' 

1010 PRINT "INT. SUM. OF VAR. EXP."; 
1020 PRINT ": NO." RO 
1030 GOSUB 1890 

: PRINT " ACTS." TAB(8) "NUM." TAB(15) "%" 
TAB(20) "AMT" TAB(30) "%" 



1040 

1050 
1060 
1070 

1080 

1090 
1100 

1110 
1120 



1130 
1140 



1150 
1160 
1170 

1180 
1190 



1200 
1210 
1220 



1230 

1240 
1250 



1260 
1270 
1280 



1290 

1300 
1310 
1320 



1330 
1340 

1350 

1360 
1370 

1380 

1390 

1400 

1410 

1420 
1430 
1440 



GOSUB 1890 

: FOR J=0 TO Q 

: IF V(J)+F(J)=0 THEN 1060 

IF V(J) THEN V1=V1+1 ELSE F1=F1+1 

NEXT J 

PRINT "VAR EXP" TAB(6); 

: PRINT USING U$; VI; 

: PRINT TAB(ll); 

PRINT USING V$; Vl/ (Vl+Fl)*100; 

: PRINT TAB(15); 

: PRINT USING W$; VT; 

PRINT TAB(26); 

: PRINT USING V$ ; VT/TI*100 

PRINT "FZN EXP" TAB(6); 

: PRINT USING U$; Fl ; 

: PRINT TAB(ll); 

PRINT USING V$; Fl/ (Vl+Fl )*100; 

: PRINT TAB(15); 

PRINT USING W$; FT; 

: PRINT TAB (26); 

: PRINT USING V$ ; FT/TI*100 

PRINT TAB(12) " " TAB(24) " " 

PRINT "TOTALS" TAB(7); 

: PRINT USING U$; Fl+Vl; 

: PRINT TAB(16); 

PRINT USING W$; VT+FT 

GOSUB 1910 

GOSUB 1180 

: GOTO 1220 

PRINT "INTERIM VAR. EXPENSES NO." RO 

GOSUB 1890 

: PRINT " ACT." TAB(16) "VAR." TAB (22) 

"FROZEN"; 

PRINT TAB(28) "%" 

GOSUB 1890 

FOR J=0 TO Q 

: IF V(J)+F(J)=0 THEN 1290 ELSE PRINT E$(j); 

: R2=R2+1 

IF F(J) THEN 1250 ELSE PRINT TAB(8) 

: PRINT USING WS; V(J); 

: PRINT TAB(21); 

PRINT USING V$; V(j)/TI*100 

: GOTO 1270 

PRINT TAB(16); 

: PRINT USING W$; F(j); 

: PRINT TAB(22); 

PRINT USING V$; F(j)/TI*100 

IF INT(R2/5)=R2/5 THEN PRINT 

G=G+1 

: IF G=>11 THEN GOSUB 1910 

: G=0 

NEXT J 

: R2=0 



PRINT "NOW WE MAKE ANOTHER PASS THROUGH VARIABLE 

EXPENSES." 

: PRINT 

GOTO 720 

INPUT "HARDCOPY Y/N"; A$ 

: IF LEFT$(A$, 1)="Y" THEN 1350 ELSE 2000 

IF PEEK(65314)<>4 THEN PRINT "PRINTER BUSY" ELSE 

1370 

GOTO 1.340 

PRINT "PLEASE INPUT THE REQUESTED 

INFORMATION BEFORE WE PROVIDE A" 

PRINT "FINAL DETAIL OF YOUR BUDGET." 

: PRINT 

LINEINPUT "NAME "; A$ 

: INPUT "BUDGET YEAR"; A 

B=LEN(A$) 

: B=30~B/2 

PRINT #-2, CHR$(27) CHR$(19) 

: PRINT #-2, "" 

GOSUB 1920 
GOSUB 1900 
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: PRINT #-2, "" 
1450 PRINT #-2, TAB(B) "THE " A$ " BUDGET FOR" A 
1460 PRINT #-2, "" 

: PRINT #-2, "" 
1470 PRINT #-2, STRING$(80, "*") 
1480 PRINT #-2, TAB(6) "ACCOUNT" TAB(20) ":" TAB(26) 

"INCOME" TAB (38) ":"; 
U90 PRINT #-2, TAB(44) "EXPENSE" TAB(56) ": PERCENT" 
1500 PRINT #-2, TAB(20) 

". . . TOTAL" 

1310 PRINT #-2, TAB(20) ": PERIOD : ANNUAL : PERIOD : 

ANNUAL : INCOME" 
1520 PRINT #-2, 

1530 X$=" :$$#####, :$$###*#,: : ###.#" 

1540 Y$=": r :$$#####,: $$##W , : ###.#" 

1550 GOTO 1570 

1560 PRINT *-2, ": : : : 

. II 

: RETURN 
1570 PRINT #-2, "INCOME" TAB(20); 

; PRINT #-2, USING X$; TI ; TI*P; TI/TI*100 

1580 PRINT #-2. " " TABC20); 

1590 GOSUB 1560 
1600 READ AS 

: PRINT #-2, AS TAB(20); 

: PRINT #-2, USING X$ ; D(0); D(0)*P; D(0)/TI*100 
1610 READ A$ 

: PRINT #-2, AS TAB(20); 

: PRINT #-2, USING X$ ; D( 1 ) ; D(1)*P; D(1)/TI*100 
1620 PRINT #-2, TAB(20); 
1630 GOSUB 1560 

1640 PRINT #-2, "PAYCHECK DEDUCT' S" TAB(20); 
1650 PRINT #-2, USING Y$; TD ; TD*P; TD/TI*100 

1660 PRINT #-2, "— " TAB(20); 

1670 GOSUB 1560 
1680 FOR J=2 TO 9 

: READ AS 

: IF D(j)-0 THEN 1700 ELSE PRINT #-2, A$ 

TAB (20); 
1690 PRINT #-2, USING Y$; D(j); D(J)*P; D(J)/TI*100 
1700 NEXT J 

: PRINT #-2, TAB(20); 
1710 GOSUB 1360 

1720 PRINT #-2, "FIXED EXP." TAB(20); 
1730 PRINT it-2. USING Y$; TF ; TF*P; TF/TI*100 

1740 PRINT #-2, " " TAB(20); 

1750 GOSUB 1560 

17 60 FOR J=*10 TO 18 

: READ A$ 

: IF D(j)-0 THEN 1780 ELSE PRINT #-2, AS 

TAB(20); 
1770 PRINT #-2, USING Y$; D(J); D(J)*P; D(J)/TI*100 
1780 NEXT 

: PRINT #-2, TAB(20); 
1790 GOSUB 1560 

1800 PRINT #-2, "VARIABLE EXPENSE" TAB(20), 
1810 PRINT #-2, USING Y$; FT; FT*P; FT/TI*100 

1820 PRINT *-2, " " TAB(20); 

1830 GOSUB 1560 
1840 FOR J=0 TO Q 

: IF F(j)»0 THEN 1860 ELSE PRINT #-2, E$(j) 

TAB(20); 
1850 PRINT #-2, USING Y$; F(J); F(J)*P; F(j)/TI*100 
1860 NEXT 
1870 GOSUB 1900 
1880 GOSUB 1900 

: GOTO 2010 
1890 FOR L=l TO S 
PRINT "-"; 
NEXT 
RETURN 
1900 PRINT #-2, STRINGSC80, "-") 

: RETURN 
1910 PRINT "PRESS ENTER TO CONTINUE" 

: INPUT AS 



: RETURN 
1920 FOR L=l TO 10 
PRINT; 
NEXT 
RETURN 

1930 IF A<-V(J) THEN 1970 
1940 IF A<-VT THEN 1970 

1950 PRINT "YOU HAVE GONE BUST BY S" A-SI ; 
1960 PRINT " *" 

: INPUT "REVISED AMOUNT $"; A 
1970 RETURN 
1980 RESTORE 

READ A$ 
READ AS 
PRINT 
PRINT 
S = 95 
1990 RETURN 
2000 GOSUB 1910 
2010 CLS 

2020 PRINT "WELL THE BUDGET IS FINISHED." 
2030 PRINT "NOW FOR A CONSOLIDATED LOOK AT' 
2040 PRINT "THE RESULTS." 

: GOSUB 1910 
2050 CLS 

: PRINT "HERE ARE YOUR ANNUAL FIGURES' 
2060 XS«" $$»,###.#*" 
207tf PRINT "TOTAL INCOME"; 
: PRINT TAB(21); 
: PRINT USING X$; TI*P 
2080 PRINT "PAYCHECK DEDUCTS"; 
: PRINT TAB(2l); 
: PRINT USING X$; TD*P 
2090 PRINT "TOTAL FIXED EXPENSES"; 
: PRINT TAB(21); 
: PRINT USING X$; TF*P 
2100 PRINT "TOTAL VAR EXPENSES"; 
: PRINT TABC21); 
: PRINT USING X$; FT*P 
2110 PRINT "HOPE YOU'RE HAPPY WITH IT" 
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Radio Shack Computer Center 
Addresses and Telephone Numbers 



BtWMNGtMM 2<2S Green SprinOS Hwy (305) 9*547*2, 8233 

Partway Fas*. (205) 138-551? 
MHTWIUf 1400 H. lfclit>WPlf*y, PWtSHMt 
MOBILE 4QS B#A» BM-. OH) 471 18i7 
millllMMI III 124 Uatafi Square SC. (209 Z7MSO0 



pnoenix W233 Me** Pkwy. E .. mm WM124: «»• N 7m 

Ave., (602) 277-3031 
tCOTTIIMU 2S2J N. SeaMM Pa) , M02) 980-224 ' 
TEMPf 63£ Broadway <8flai6*J0» 
TUCM 5*22 E. Sret*wMl«-0l01 : CamporJ Plan. 

2830 H CMwMJM.|dRrBi1-80O3 



UTTLEI 
(501) 



Tom t CouMry »C Universe* & Asoer. 



Kateta (714) 776-9640 



MMMtma 2018 Chatter Ave (805)3034)074 

knout 1022 Grove a misi ma-9170 
■mur Mut ssoo mtm m . eij) iswwo 

•fttA fcrtpenN Snopptip Center 381 Sou* Stale Cstege. 

(714 871 1881 
CMUU PARK 8371 Tcpanoi Canyon. (213) 347 9800 
CM8KHAEL 6306 Fanroato Blvd. . (916) 444-6815 
OUCO 1634 Mangrove Ave (916) 884-0101 
DMA WTA 1201 3;;) int.. (819) 420-3810 
CrmoS WIGHTS 7405 Gawi Back In tl Sen Juan, 

1916) 723-5183 988-8752 
DOWWT 8031 Florence Ave . (213) 927 7882 
a TOHO 61 lore Rd at San Cwgo Freeway. (7141 858-4411 
" 30 347 * MsskwAve.. (619) 7414932 
M emoMHuk 39)14 FromM 41SI 790-111: 
FRESNO Princeton SVC 2721 h BUCkaone Awe., 

009)225-5551 
GAME* G8IME 12821 Kmn St . (714) 891-1180 
6UK0ALE 736 N Brand BM (213) 246-9310 
NAYWAJtt 24784 Hesperian BM . (415) 8874420 
WUTW00O 8922 Hcaywood BM., (213) 4*64681 

mm rm» jt unn St .(7i4) 690-029$ 

LAXEWO0O 5830 lekewood BM . (213J- 9204871 
IA MESA 5346 Jadnjon Dr.. (619) 460-3610 



LOm SOW 2M9 Belflower BM.. (213) 587-3377 

LOS JUMail 740 S Otw Si , (213) 629-2455; 5240 Carvury 

Bv4 WW real 213 84 '-5*-: 
MODESTO 22* McHenry Ave . (208) 521-101 1 
MONTCLAIR 523? Arrow Hwy.. (714) 625 1541 
MONTEREY 484 WMhngkm St (408) 3754430 

" 1933 BCanwio Real W., (415) 961-0542 
1 1733 Broadway. (415) 763-3163 

i 575 S. Ute Ave.. (213) 4494*24 

PLEASANT MU SOB 6 Centra Coat* 8M . (415) 876-9866 
PMRS40E 3844 L» Sdrri Am., (714) 68943*0 

fvnnwTtm 4749 j a , 0181 454-32*7 

SAN BERNARDINO 764 Inland Center Or (714)8846871 
SAN 0KGO 3062 Gl««mom Or (619) 2784)050. 3902 El 

Cafcw 6M. 1619) 2604227 
SAM FRANCISCO One Mtlttt PMce, (4 IS) 7774)610. 2920 

Geary BM.. (4151 221-8716 
BM JOS 1228 S Bwwn Aw, (408) 297 -2803 
l*M MATEO 3180 Campus Or . (415) 573-8607 
SANTA MA 2320 S FatvUw St. W Warner). |714) 906-2787 
SANTA BAMARA 4141 SUM 8 A-l. |B05) 967-4530 
SADTA K W f tmt 14138 East FaetKm BM.. 



J ! R14702 
SANTA MOtBCA 511 Wisftn BM-. (2 1 J) 458,1802 
SANTA ROSA 823 Hi a . (707) 542-0402 
SWWUH 0AM 14938 VMuq 8M . (213) 798-2639 
STOCKTON Cotejx Sq: SIC. 963 West ItVtN Lane. 

209] B7 367* 
TArUAMA 18S4S VtMuri BM . (21* 343-;BSB 
TORBMIIXf 38*0 SepU«o» il H*«*om«, $213)3734)30* 
KHTUM 4005 F l&l a ~ 



2518 E 



(905)6544)196 

».. (213) 915-5791 

fOtOHAM 



Ajaatot Pba. 3650 Anenncc. (303) 443-7142 
COLOMOO SftMBS 4341 N AcaHm. (303) 583-7500 
DBMRBOOOF Quney. 13031 770-1362; Green Bftx Plus. 

7576 Peas, (303) 428-6787 
UUtJ*O0O 2099 WKtnrort) BM . (303) 232-6277 



EAST BAVFN 51 Frontage «.. 003) 487-4664 
FANVIELD 1 1BS Kmgj fiwy. 4 Rt 1,(203)255-609* 
HARTfOM) The HchMttrji BMg . 942 Wain St . 

MANCWSTflt 228 Sf«K« S . (203) 649-8210 

H0RWAU Rl 7-345 Mm Ave.. (203) 846.3418 
CHANGE Wooteo SVC; S38 BMsn PcU Rd . (2031 7*6-1291 
WTailfttY 105 Bank SL. (203) 5734)600 
•MTlfVOW 122 Boston Port Rd.. (203) 44343716 
WOT HAATFOW 39 S Mun a . (203) 523-4263 



£dgrha Shop CW . Rl #13. (302) 734-5223 
I0TON 3847 nnmood Hwy . (302) 999-0193 

ptsTwia m ta u mm 

I 1800 M a MW. (202) 832-3933: 15th 6 L a , 
N W . 1202) 296-2460 

komim 
ALTAMMTl SPRINGS 7*6 B East Ammortte On ., 

(305) 338-1313 
BOCA RATON 1662 N Federal Hwy (3061 3*1-3306 
CtiArWATSt 2460-D US 19 Horft. (813) 797-3223 
DAYTONA BEACH Vokitia PUa (BM) 255-5809 
Ft. LURXROAU 4368 N FfderN Hwy . (306) 772-6797 
FORT MYERS Edton Mil. 013) 93S4454 
FONT PMNCE Center MM Shoopifta. Center U S Hwy 1. 

[305) re::o: 

6AMESVNJ.E 3315 Archtr Rd . (9041375-7063 
H0UYWO0O 429 S. Sate Rd #7. (305) 9664362 
JAOJONWUE 8252 Artngton Equwy . (904) 725-25*4. 

Ftoosm* Mai. Rooaevell 6M . (904) 36*4)61 1 
W006RDAU UB2S 431725 N SW) Rd 7. (305) 486-2240 
MtABB 945* S Drat Hwy , (305) 6672316; 1601 EUK-tyne 

BM (306) 3746433. 155? 2nd Ave.. (305) 374-7310. 

20761 $ Done Hwy (305) 238-2518 
N.BJfcMMBOW The Promenade, 1777 Ni 163M a. 

{305)9404)887 
8MM00 1238 E. CBOfiN Or.. (305) ItMrOSTO 
PENSACOU Eatmak) Stooping benttr 6925 M 9*1 Ave . 

«Q4) 478-7l0f 
ST. PETERSBURG 3461 88tt 9. H . (813) 381-2366 
BAHASOTA 5251 S. Tamami T. (Hwy 41), (813) 923-4721 
TALUUMS3EE 2529 S AlSams, (904) 222-4440 
TMNPA 4555 W MMNdy, (813) 879-7470. 1625 E Fowtar 

Aw ,(8131 971 1130 
% mUl BOGH 2271-A PaMt Beach Lahn BM. , 

1305)6834100 



MIGUSTA 3436 WAtaneXMrtrV.. (404) 73*5906 
ATIANTA 2101 HeadMtM MM (404) 93*4088; 49 W Paces 
ferry. (404) 231 9804. AAars Ml! SvC. 2937 Cobo Pirlcway 
NW. v»o¥l6S«)235: TIS Peattene 9., J40« 223-5*04 
COUEGEPAM 5380 OMIvatioaal Hwy. (4fJ4) 781-3055 
COUNIBUt CrauntbM* Stwere Mel. 3060 Mecan Ro 
1 HB-7M 



OOfUMUi 56*7 BHkXd Hwy 404) 45 2691 
txuANNAtl Cmtm Hut 7Skw Abeia • Si . I 



i ■:.; 8074 



BOISE 6*lS Cmrtrtimvs. 208)344-5450 

IJJNOtS 
AeMNVk 890 tarft L« SI 1312)844-2224 
CtNCAOO 4355 S. An*ar Mr*.. (31!) 376-7617. (MA Plan 
309 S WitasV Q12) 922-0536; 72 West Adams. 
(312) 236-7282; 524 iN. MreWgen Ave.. 1312) 822-0533; 101 
W, WatriiMM 9 * Ctart. 012) 782 7207 
WO HM 7212 W. Graod Ave . (312) 452 -7500 
~ 14 Mart* Ptece (6181 398-6410 
IP 32S Ghnmod Lansiig 
012)7584)440 
1UEI2415W 



8151 1M i K 
> Om $. la&ange ftd.. (3»2) 482-3484 
UBENTTrlJJE 1350 S MfMukee Ave , (3121 3674)230 



> 4 Verttswa CeNM. (312) 629-5350 
MUS 6349 Go* Rd , (312) 470-0670 
MK tAWN 4115 Mr 95th St.. (312) 4259130 
~" 4125 N Shendan Rd.. O09) 0*5-7056 

North Town aC. 36D0 H. Mm a . (815) 282-1001 
"1651 MM Or. (312) 8*4 8600 
Sherwood Plan. 2478 Wabash. <2i7) 787-3066 



E1MMVILLE 431 DtamoM Ave (8121 426-1715 
97. leWIJI 747 tartKrea SVC, 019)482-9547 
1 208 W Ridge Rd . (219) 838-3000 
t Saw-More 4a Rtes (6 4 51 <219) 942.0541 
I J 6242 t 82nd a . CasBMon Ph.. 
(317) 64943896. Speedway Plan 6129 8 Crawtortsv*. 
(317) 244 2221. 10013 E Washmoton 9.. (317) F~ " 
Two W WaihMkn a . (3171 236-991 1 
SOUTH SEW) 1827 Sotfh B-. :. A.t (2l9l 277-37*9 
TERRE HAUTE M60 U S Hwy 41 S (812) 234 3212 

CEDAR RAMOS 111 First Ave . S.E (Downtown). 

319 362-7398 
DAVENPORT 6«E KMoeriy Rd.,01 I) )H M57 
OES MONNES 7660 Wekman Ad Sherwood Forest S/M, 

515)270-01*3 



OVERUNO PARK 8619 W 95th, (913) 642-1301 
TOPEKA Whtc iites Plan. West Tower. 3715 Plaza Dr . 

(9131 267-6420 
WICHfTA 2732 8M Ptea SVC. (316) 681 1212 



FUMENCE 7727 Udl Ro. (BOB) 371-2*11 
LF3ONCT0N 7909 Richmond FU . (806) 269-7321 
LOUWrTUi 2900 Tlylorsvile Rd.. (502) 459-9901. Louov*)e 
Galena (502)589-1013 



ALFJtANOttJA 1213 Texas Ave.. (318) 473-0429 
BATON ROUGE 7007 FlorUa Blvd . (504) 92652*0 
HOUMA 2348 W. Park Ave. (Hwy. 24). (5041 873-7713 
Ukf AYETTE Urtversity Sousre at Congress BM.. 

MCTAIRIE 3750 Veterans Hwy . (504) 454-38*1 
NEW ORLEANS 327 a Charles Ave JS04) 52343406 
""1545 Line Ave. (318) 221 -5125 



BANGOR Maine Squire. (207) 945-6491 

MAItYlAMD 
BAITNNORE 7942 Belaii Rd . Patty HN Plaza, QOl) 882-9583. 

its N. Charles 9 at LeMgion. (301) 539-7251 
BCTMOO* 7900 Wsonsti Ave . (301) 65S-OB92 
UTONSIRUE Or* W« West St 6800 6 8* Kat'l. P*». 

; -i M- 27 
FREOERJOt Shoppers World. Rt 4(NV. (301) 0954)440 
NEW CAflROaTON-LANKAAl 7949 Annapolis FU 

O01)45»8030 
PASAXrOlA 81 20 FMXtie Hwy. , (301) 544-2352 
R0CKVIU1 Congressional Htk, 1673 Rockvle F*e. 



001)964-0424 

SAUawrrr 



rshop 



l Work) SVC. Rt. SO (301) 546-9223 
) 6994)740 



1S1 tMMtt -h-: 1301)89 
TOWJON-LNTHERVIllE yorttown SVC Yo* ; Rd. at fMflley FW 
001) 561-2001 

MASSACHUSETTS 
BOSTON 730 CwrtmonweaMi Ave.. (617) 739-1704, 111 
Summer Si, (617)5424)361 

— I South Shore Plaza. 250 Granite St.. 



•517} 848-9290 
BROCKTDh- 



I 675 Beknoat 017) 583-2270 
a«e)je«TTJFI Crossroads Pita. Rt. 3 5.(017)229-2850 
CAMBRIDGE HarvM Square. 2B Boylston 9 . 1617) 354-7694 
ON-STNUT HIU 200 Boytsttn 9 . (BIT) 969-2031 
NATlCK 1400 Worcesler Rd . (617) 8754)721 
1 343 Broadway. (617) 233-4965 
~1LD 1965 Mam 9 . NorthgaM PH.. (413) 732-»745 
I bncom Plaza. (617)652-6844 




«J 27449161 
DETROIT I 



2515 JKkaon Rd., (313) 7614266 
I 3620 W. Mapk Rd., 013) 647-2151 
Wesfwra Shop Ctr . 23161 McNgan Ave 



I OWNTN 1569 Woodward Ave , 0131 961-8855 
PUNT G3298 MMer Rd.. Yorkshire Plata, 013) 732-2530 
GRAND RAPIDS 3142 26th 9 SE , (616) 957-2040 
IbUAjWUDS 25 Kalamazoo Center. (616) 343-0780 
LAAISNeG 2513 S Cedar 9 . (517) 372 1120 
PUNWIELO tar* K«H Mat. (616)364-7558 
PONT1AC North Oak Ptea-PpMac Mall. 2436 E)uabe» Lake 

Rd.. 013) 6*24)800 
LJtTjNtt 33470 W 7 Mee Rd . (3(3) 476-6800 
ROSEmti 31(73 Greeot Ave . (313) 2966210 
BOUTHrmO 1785! West 12 Mike Rd.. 013) 569-1027 
TROY Oakland Pia/>, 322 John R Rd . (313) 585-3900 
WARREN 29038 Van Dyke Ave . (313) 573-3870 

MINNESOTA 
8LOOMINOT0N 10566 France Ave. S . (6121 884-1641 
GOLDEN VALLEY Gotten Valley SIC. BOW Often Memorial 

Hwy . (612) 542-8471 
ST. PAUL 9th t Wabasftl (612) 291-7230 



979 EMs Ave . (601) 352-5001 



i H9G0 Manchester FU , (314) 986-5911 

I 47 Florissant Oaks SIC. (314) 921-7722 

INHPEMKJtCE 1325 S Itoiand Rd , (816) 254-3701 
KANSAS CITY 4025 H Oak Trarktway. (816) 455-3381 
ST, ANN 10472 9 Charto Rock Rd . (314) 428-1400 
SPRINGFtaO 28*4 S GJenstpne, (417) 863-4320 



LINCOLN 4601 "0" St. (409 483-7841 
OMAHA 3008 Dodge 9 J402) 346-4003. 1318 72nd St at 
Pacific. (402)397-1066 



USMSEMCorraanciMCeTNi' 953E Sahara 4318. 
I KJetzkeUne. (702) 8266327 



®a6m fhaek 

TRS-80 Micrcxomputer Nbws 

P.O. Box 3910 

Fort Worth, Tbxbs 761 1 3-291 




FIRST CLASS 
U.S. POSTAGE 

PAID 

Radio Shack 
A Dtv. ol Tandy Corp. 






ADDRESS CHANGE 

_ Remove from list I Change as shown 

Please detach address label and mail to address shown above 





HEW JERSEY 

BRIDGEWATER '47? U S •+#)«,<, 72 E^t (201) '-69 323? 
E. BRUNSWICK 585 A Ft. Itf (201| 238-7142 
E HANOVER Rl '3 Hanover PUa (201) 884-1200 
LAWRENCEVtUE Rt 1 6 Text* Ave.. (609) 7714)113 

newark '■ -i v i: :: ■■: ? •-•> 

HORTHFIELD 322-24 )«on Rd. (609) 645-7676 
PARAMUS i T 5 Rt. 17 S., (201)2*2-1920 
SPRINGFIELD Rt. JT22 CtntW We, (201) 467-9827 
VfOORHEfS 35 Eagfa PUa. (BOB) 34fr0600 

ALIUOUEROOE 2106 San Mateo ME , (505) 265-9587 

ALBANY ShOMten Pit. tot Rd , 1S161 45*5627 
BAYSHORE 1751 Sietnet Hwy . (518) 888-1800 
BETHPAGE 422 N. Wantaah Ave . a\&SB*«B 

tmmvn 531 asm a. am z&mn 

BUFFALO 839 Nnoara FNkt BM.. (716) 837-2590 
FRESH kKAOOWt 187-12 Horace Harding E«P . 

GAROEN CITY 910 Ftinkiti Ave , (SW) 294-3350 
JOHNSON CITY GMM Shoppins Center. Harry I Drive 

lb""; —?-:■ - 
KINUSIOH *»iot Mat. Rl 9W, (914)3364)362 
m.\ Lt i 

NEWlUfltiH 2avK Plea Rl 1 17K. (914) 561-2950 
NEW ROCHELU 242 North Ave , 014} 63frO70O 
NEW YORK 385 «» A» . (212) 8e»f»45. 139 £ 42no a. 

(212) 1634)063; 19 W 2*d St.,ff12) 691-1861; 347 

Mtdbon Ave . (2'21 B87 6650; 270 Park Ave South. 

©12) 5334)470; 1262 Broadway (212) 279-9260 9 



br ejdwa y , (2i2j 4 >?* 00 . 



. Hotel Syracuie. 



t PM PMa. 8361 Nvajara Falls BM . 

ffrt ?'"•>■■■ 

regoPaw ,-, . ■-- •'..' ' vi : ; ; ■ 

ROCNEJT0I 3000 Winton Rd.. (716) 24443400 
SURSOAU 365 Central Part Ave (9 14) 472-2520 
SPrWM) WvUIY White Ho»B Center BB W Rt 59 

(914) 42S-2S2B 
tTATEH MUUU 2408 Rrchmond Ave , (212) 696-3100 
SYRACUSE 2544 FA Etvd . (315) 446-3017. 1' 

e:3 S Mi ; \.t . (31 | «j i BH I 
UTKA Fkverade Mat (315) 735-1933 _ 

WU1EY STREAM 'Green Acres Shop Dr . (516) 872-6460 

NORTH CAROLINA 
CHARLOTTE 3732 independence Btvd M704) 536-6320; Tyvola 

", S.:r, -. .,:: -■■_ 'U- ,. : . ■■.!,' 
(MIRHAM South Sfluare MM. (919) 493-4025 
FAYETTE9ILU EvSaw Shewing Center, 815 Bm a . 

(9rt}4t 2411 
vMEENSMlW 3718 Ha* Pokit Rd . (919) 294-5529 
MUSM Townruge Sit. Hwy. 70 W . (919) 78L91B<> 
WrHSTBH-SALEa S2*Petrrt Creek Pkwy. . (919) 722-0030 

AKRON FaKttwnPUn. 2727 W Market a . (216) 8369303 
BEDFOpW HEWfTt 5217 NonMeU Rd.. (218) 662-2477 
CANTON 5248 Oreuka Rd NW . (216) 494 7230 Meeet Plan. 

3826 W Tuscarawas, (216)478-187* 
ttNTTJIWUE 2026 Mulrnsourg-CoNervllie Rd . (513) 436-51*7 
ONCWNNTt 9725 MotMoonwy. (513) 7938688. 16-1B 



i Way (on Srywalk), (513) 3B1-4664 
amiANO 419 EadM (Dwntwn). (216) 5754WO. 27561 

Euclid Ave , (218 299-6823 
COLUMN!!* 862 S Harriton. Gnat Eastern ac. 

(614) 664-2806; The Patio Shop CU.. 4*61 Kan Rd . 

(614) 4384866. 400 N Hv/i a , (614) 464-2781 
DAYTON northwest Ptaia, 3279 West Siecardhakif . 

» ii 1774)501 
ELYRU 296 Mttway Bkrd.. (216) 324-7741 
FAIRFIELD 7255 Oh* Hwy [Mt Ml North ol 1-275). 



(513)874-59*4 
NORTH t 



I OLMSTED Great Northern SIC. (218) 734-2256 

PARMA 7551 W Rjdajwood Or (216) B*2-4030 i _ 
TOLEDO 5844 W Central Am . (419) 531-5797. Brownskme 

Plaza, 1724 S FteynrJdi Rd , (419) 867 9153 
rcjUNGSTOWN Union Square PMa. 2543 eeknoM Ave., 

(216) 7444541 



(NUAHOeU OTt 4732 SE 29th 3 . 1405) 670-4561 . Spnngdele 
SVC, 4469 NW SOU. (405) 9436712. 1101 SW 59th a 
|4S6] I M-24 «, 

THLSA 721B I 7220 E. 41st a . O 1 *) 663-2190 



MANCHESTER Hairejctam Ptaa. WOO Vm S . (603) 625-4040 
NA«t)A429Arf«*Mta. Rl 101 A. (803) 8814)588 



EUGENE 390 Cuburg Rd.. (503) 6874)082 

POrTTUNO 7463 SW BaitW Etvd , (503) 246-1 157, 9131 SE 

Powel, (503) 777-2223. 3rd and Washnejlon St* 

(Downtown). (5031 241-7024 
SALEM Salem PUa, 403 Center, (503) 568-7095 

AUENTOtFS) Crnt Plan SC. Cedar Crest BM US 22. 

BaIai^IWTD 67 E Oty Line Ave , C15) 86*9*50 
EASTON 25*1 a Slwoing CenMr. QJS 25Mt60 
ELKNtS PARK EfctuPtnt Square, BOB CM York Rd 

(215)645-5460 
EM 5755 Peat* St., 014) 868-5541 
HARRISIMRO Unkm Oeoosd Mel, Uwon DeposN FM. #17. 

I 1 5*4-67*8 
LANCASTER Park Oty PUa. US 30. {717) 393-5*17 
MOttFtOFVTUE 3B2B Wm. Pern Hwy . (412) 1233400 
leONTSOMEHYYILLE A*pon Sa., Rl 309. ( 
PHIUOEIPHIA 754? Castor Ave., (215) 

Chestnut S . mSl923-3080, M01 I 

aeW.c«5)5**0BOl 

, .,, . . . ...,. r - ...,:.-■. 




PITTSBURGH 5775 Baptist Rd , Hres PUa, (412) 831-96*4. 

303 Srrvmfctk) Si.. (412) 391-3150; 4643 Baam BM . 

(412)6814000. 4769 McKNgM Rd. |412l 364-4342 
SCRANTON 201 Meadow Ave.. (717) 348-1801 
WTOM tSSN M) Bertehki Mat West. 1101 Woodttad Rd 

(21! I72-Bi« 

PUERTO PICO 
NATO REY 243 Ft ankkn D. Rooscve* Ave . 009) 759424* 



E. PROtlDENCE 850 Waterman Ave.. (4011 43B-2M0 
PROVIOENCE I 7 'Joion a . 14011*314)320 

SOUTH CAROLINA 
COWMSia .-■■«: --. • Harder l (8 > 99-2BBg 
UMi WIXI N. Hits SC. 003) 292 1135 
N CHARLESTON 5900 Rivers Ave . 1803) 747-5590 

SOUTH DAKOTA 
SIOUX FALLS 1700 S Minnesota at 25th, (606) 331-3801 



, 5-7MB JBBIAtli 



CHAnANOOGA 636 leorthjale MM. MIS) S70-136S 
JBINI W aj OTT Peerhst Center JB15I 2S24M2* 
nnxwUE Cedar EtuH SC. 9123 EMCMM Par*. Or . 

: : L.-U 

MEMPHIS 4BB5 AJKhctn Way, (9011 791-49*3; 1*97 iVxoa 

Ave . (901) 27S-7935 
NASHVILLE 2H5 Fnr*&» Pike. (815) 298 54*4, Ftvergate 

PUa. (61a 8594414 

TEXAS 
AMAPtUO WeanjI Wn Sd SVC. 1819 S KeMuOXy. 

OOS) 35849*7 
ARLINGTON 2500 E. Randal MM SUM 113. 017) 274-3127 
AUSTIN B764 E Research BM.. (512) 459-4238, f 

Mel 1501 Ben WWe Etvd., (512) 4474)071 
BROWNSVILLE K' 

BEAUMONT 5330 Eastex Frwy . (409) iOB-7000 
COLUOE STATION 2414 Texas Ave . Seua.^p9)764417i 
CORPUS CHfNSTI 1711 S. Staple St.. 012) tW-1901 
DALLAS 15340 (Mas Pkwy.. Siate 1100 014) 9340275: 2930 

W Northwest Hwy . (214) 3604144; 1517 Ma* St. 

(214) 7604601. 25*8 Royal Ln . (214) 4*4-9947 
EL PASO 95 15 Gateway West. (91 5)5944)211. Kern Plan 

Shone*] Center. 3100 N. Mesa. |915) 544-8156 
FT WOtTTtf 231 On Tandy Center, $17) 3 

IBM ;r."l DMH1 
HAttUNGEN 1514 S. Hwy 77. aeatei»^p,J512) < 
HUMBLE 19300 "8" Hwy 59 (M FM 1*60). (7131 446 6314 

mam 2iic.fm ibbo. pis) 444-7*06, ifW cms Fwy 

(713) 943-9310: 5900 No* Fwy.. (713) 6*8-1932. 6*13 SW 

he».. (713) 777-7*07; BOB Dates a.. (713) 651 3007; 

Hgiard Sauare Center, 10820 East freeway, (713) 

453-0600 Champtof) Forest PUa. Chempioft Forest Or and 

FM. i960 Welt (713) 590-1404, 101* Gessner. 

713) 984-9600; 3278 Soeth Leap West (So. Mean at *10l 

-13) B01-525O 

NT Northean Mai. (817) 2*4-1618 

LAREDO 102 East CUM Rd.. (512) 7274768 
lUUQCK 3E3S 34lh 9.. 006) 793-1467 
ODESSA 1113 A" East BnStreeyBISl 3344)355 
MCMAreMN Fleetwood Sq SC. 202 W. Campbel Rd.. 

BM pt404 
CAM AAfTtJMK) 6018 West AM . 012) 3444792. 4249 

Carrhnate. (512) 657-3958; PMttcnl Parkwp Garage. 211 

E Market Si at Prtia (5121 2250345 

OGDEN K-Usrt Shoppng Center , 3672 Wall Ave.. 

Mi - r «-'bfc<. 
OREM Grand Cental Plan 384 East S 1300 South. 

OOll 226-8651 



MWWAY 6051 $. Stale Ave, 001) 2684)978 

SALT LAKE OTY 301 Sou* am St. fflOl) 322-5526 



ALOAMBM 3425 KM* A. M Otaket In.. (703) B20-26OC 
ARLJN8TBM Crystal Cay. 7301 So Jeflerson Dew Hwy 

(703) 521-7479 
FAIRFAX -.Vfittair Center 1 1027 Let Hwy . (7031 2736500 
LYNCHBURG « I s PUa. Ward's Rd (804) 237-1664 
NEWPORT NEWS Newmarket Sow* Shoe. Ctr 00*) 2454)203 
WtVOU 5731 Poplar Hal Dr (804) 461-0796 WarwsComei. 

122 E Lilee Creak Rd , (804) 586-754* 
MCHMONO Wdow Lawn SC. 1617 WNow Lawn Dr 

(604) 282-3453. 772* MkMhvtt Tampfce. (804) 272-8803 
BaMMME Franktn BWo 3561 FranNhi Rd S.W 



-Or itRl 29.1703)243-8)66 



(703)3424)336 
ROSSLYN 1911 N. PL MvefOr , 

BELLIVUE Crossroads Mad Nor» East Blh I 156 St.. 

BC1 ( ^IIM < 1111 Cortwet Ave . Sate B * C. (288) 676-081 1 
FEDERAL W»Y 33506 Hc*C PWy Sou*. <2O8)*364«30 
OLVB1PIA 106 N Weatn. (206) 754-61 )1 
SUTTU 1*405 Aurora Ave. at, (296) 542-61*4. 1521 3rd 

Ave . (208) 447-1959; 5030 Rooievet Wa, NE, 

tm 527-1019 
SPtNAME 7702 N. OtvMkin. (509) 494-7000; E !24?2 Sprjgue 

{509)922-2*00 
TAC0MA7030S Spraaae. 
TUKWILA 1W?S53nlT6«, 
YftXIWA i 'I •-. -i : V 

WErtfJlBtL- 
rlUtTTMGTON 2701 Vy 5th Ave . (304( 523-3527 

APPLETON 2310 Wast CetUgt **J*«J 7314)124 
MADtSON 57 West Towwe Mil. #08) 8334130 
MILWAUKEE W50 N 78*1 SL. (414) 3534790 
*EE1 AlliS 2717 SOU* lOBBtSt .. (414) 3274240 



